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The access of changed paCiCes .o ^e 

of individual trajectories to ascertain the behavior o aj (o, rigidity) a charged particle must 

many ofnajectories must be nacedin^ 

ra"iS^:7-«^Sdm:nyima« 

measurements during the early years of cosmic ray research. 

SSZ —I**. «— “• “ 

computed without the expenditure of excessive resources. 

.j?4=:,rs:S£r:^^ 

locations as deemed necessary for a specific study. 

■mis report is organized in sections. Section I gives a input 

trajectory program FORTRAN source codes (with added line numbers). 

mis document is also included on a IOMEGA 100 MB ZIP disk, and the FORTRAN source code is 
also provided on a 1 .44 MB 'floppy' disk. 
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1.1 Historical Background 

work of Stormer is summanzed in his book pie Polar ^ ’ J , computer) to obtain 

g^mag„e..c field. Tfiey calculated Part.de -cess l',a be well ordered 

the cosmic ray anisotropy and also traiectories calculated in high order simulations 

by geomagnetic cutoff rigidities deri ved demonstrated that the earth’s internal magnetic 

of the earth's magnetic field (Shea etal.,\9 ). y of updated magnetic field models 

field is evolving (quite rapidly on geologic time scales), (Shea and 

is neccsaa^ to expl.n the cbanges field 

ahinges (called geomagnetic "ierlts”) have been found ,n the Each’s 
magnetic field (Langel et al, 1986; Macmillan, 1996). 

Advances .n computer technology over the past of 

Utilize the trajectory-tracing technique, s topology have been developed and 


1.2. The Equations Involved 

1.2.1 The Charged Particle Equation of Motion 

Tire equation of charged particle mot, on m a magnetic field may be written m vector form as 

V = (e / m c) r X B. 

In thrs equation;r^s the particle acceleration, Ue 

™s“ " " ti 6. rcllmes'esults in three simultaneous differential equations 
with six unknowns. 

dVr = ^(veB*-v*Be) + 

r r 


dt 


m c 


dve = ^(v*Br-VrB^) - ^^e + ^ 

^ me r "tanG 
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dv^ 

dt 


e (VrBe-VeBr) 
m c 


Vr - Ve 

r r tan0 


In these equations the particle velocity terms are 


dr 

dt 


Vr 


d0 

dt 

d(t) 
dt 


r 


r sin0 


This system of staultenoous linear differenUal equahons can be 
components of magnetic induction B,. Be B, are foiiraittrder Runge-Kutta 

Choi by McCracken Wo “ the magnette field is 

integration (Ralston and Wil^ 19 uosition and velocity coordinates on one point of the 

known (see next section), a knowledge of the p coordinates of subsequent points 

tmjectoty is used with the differenttal equattons in space. 

along the trajectory. Repeated f n canLke the process more efficient. This is sometimes 

Adaptive step size control (see section 1. 2.3.1) can make me pro 

called fifth order Runge-Kutta (see Press et ai, l9o ). 

12 2 Computing the Earth's Magnetic Field 

trajectories. 


define a 


rajcuiuiic^. 

If the field being modeled is composed of only mtetnal sources, then it is possible to 
nagnetic potential, V, that can be expanded in sphencal harmonics. 

V(r, 0,(1)) = a E (a/r)""‘ E [ cos m(|) + h^ sin m(|. ] ( cos 0 ) 

’ ’ n=i ni=o 

T .u Orton rr'" and h"’ are the Gauss coefficients describing the magnetic field, r , ( cos 0 ) 

aretl^^Sn— — dLege^^^ 

TthTdipole ease, the expansion results in 

evaluated to quickly find a solution geld expansion increases, the number of 

specific energy. However, as the comp ^ ty description of the earth's main magnetic field as 

terms to be evaluated increases as n.. u riri^F 1992* Sabaka 1997), about 90 
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derivative of the previous term to obtain the current term, a process that is inherently serial. u^e 
The iSmsil proLss is about an order of magnitude slower. (All attempts to develop a very efficient 
parallel-processing algorithm to evaluate magnetic fields have so far met with failure.) 

1 .2.3 Methods for Efficient Computation of Cosmic-Ray Trajectones. 

It is difficult to calculate the trajectory of an incoming cosmic ray particle ^ “ 

MgSy ch “grdTartWeTa iag^efifritS fe identical (eticcpt for the sign 

The extreme requirement of intensive computation to obtain a suffici^t number of part^^ 
traiectories to evaluate cosmic ray access to a specific location on the earth or m the earth s 
magnetosphere may involve obtaining solutions to millions of individual cosmic ray trajectones. 
Therefore efficient computation is essential (and a fast computer desirab e). 

1. 2.3.1 Variable Step Size Methods for Computation of Cosmic-Ray Trajectones. 

One approach developed by Smart and Shea (1981a) was to compute a dyntmic l“o®ws 

in a magnetic field is given by 


P= 


33.33 R/B. 


In this equation p is the particle gyro-radius in km, R is the particle rigidity in units of GV, and B 

is the magnitude of the magnetic field in units of Gauss. 

The particle velocity can be specified as the ratio of the particle speed to the speed of Ught (v/c) and 

designated by the symbol P which can be derived from the relativisttc factor, y, as follows. 

B = [ 1.0 - ( 1.0/y^)]‘^ 


and 


y= { [(RZ)/(ttloC^ A)f + 1.0 
where R is the particle rigidity', Z the atomic charge, A the atomic number and m.c“ is the rest 


mass energy. 


canonical unit that is especially useful in characterizing charged 

magnetic rigidity, charge sign and initial conditions 


' Rieiditv is momentum per unit charge and is a 
or atomic charge. 


mass 
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1.3. Characteristics of Cosmic-Ray Trajectories in the Earth’s Magnetic Field 

To examine the characteristic behavior of cosmic ray trajectories in the earth’s magnetic field we 

Md will reaci. .iSplanelary space w„h a mmimum f 8— “SSw 
energy decreases, then it will undergo more geomagnetic bending before it escape^ At so 
enerS it will no longer have sufficient momentum to escape the magnetic field and m 

centered in the magnetic field. 



Fiaure 1 Illustration of charged particle trajectories of different energies (rigidities) traced 
oSTthe vS direction from the same location. The trajectories undergo increyed 
geomagnetic bending as the particle energy (rigidity) is decreased_ , 

haiecto^ries near the cutoff rigidity develop intermediate loops and become complex. In 
thSmic ray penumbra, some hajectories are re-entrant, and some are allowed. See 

text for more details. 


still lower energy trajectory labeled 15 escapes after a senes of complex loops near the earth. ^ 
in the equatorial regions). 
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1.3.1 Cutoff Rigidities 

Our procedure for determining geomagnetic cutoff rigidities is to make trajectory calculations at 
discrete intervals through the rigidity spectrum with the assumption that the results of a specific trajectory 
at a specific rigidity are characteristic of adjacent trajectories at very slightly different rigidities or 
direction. These calculations begin at high rigidities (at a value above the highest possible cutoff) and 
progress down through the rigidity spectrum until the lowest possible allowed trajectory has been found. 
An examination of the characteristics of particle trajectories from high rigidities to low ngidities will 
show definitive fiducial marks. These are the first discontinuity in asjmiptotic direction, the first 
forbidden trajectory, and perhaps a range of allowed and forbidden trajectories called the cosmic ray 
penumbra and the lowest allowed trajectory. In the cosmic ray penumbra, the highest ngidity forbidden 
band is called the “first forbidden band” (see Smart e/ al. 2000, for more discussion). We currently use 
three parameters to describe a geomagnetic cutoff rigidity. These are: 

R The upper cutoff which is the rigidity of the last allowed before the first forbidden traj ectory, 

R,“ The lower cutoff which is the rigidity of the last allowed trajectory in a decreasing ngidity scan, and 
R<; The effective cutoff which is an average between R„ and R/ that accounts for the transparency of 

the penumbra. «:• j • j ♦ 

A more detailed explanation of the characteristics of geomagnetic cutoffs denved from trajectory 
calculations is given by Cooke et al. (1991). Figure 2 illustrates cosmic ray penumbra structure and 
geomagnetic cutoffs determined by trajectory calculations for three North American neutron monitor 

stations. 


MT. WASHINGTON (44.30N, 28G.TOE) Re-1.43 GV 



NEWARK 



i.ro |.•o 


(59.68N, 284.2SE) Rc«2.IO GV 




K) 2.00 

riqiditv uvi 



Figure 2. Illustration of trajectory-derived cosmic ray cutoff and the cosmic ray penumbra 
structure in the vertical direction. The calculations have been done for three North 
American neutron monitor stations. White indicates allowed rigidities, black indicates 
forbidden rigidities. 


Since there are chaotic structures in the penumbral region with very small features there is no 
certainty that all features are identified in a rigidity scan. It is possible that we might not identify very 
small penumbral bands near the cutoff When scanning the asymptotic directions that represent the 
interplanetary terminus of these trajectory calculations as a function of ngidity, there is a systematic 
increase in asymptotic longitude as the rigidity is decreased, until very near the cutoff there is a 
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discontinuity in asymptotic direction. We have found that whenever there is a discontinuity in asymptotic 
Lotion and we iSgate the rigidity region in minute detail, there is a 

associated with the discontinuity. Therefore, the first discontinuity in asymptotic direction is always the 
start of the penumbra. Continuing downward through the penumbra and calculabng J ^ 

particles having successively lower rigidities results in a last allowed trajectory that identifies the lower 

rigidity end of the cosmic ray penumbra. 

1 .3.2 Asymptotic Directions of Approach 

If we follow a charged particle trajectory away from the earth, the amount of geoma^etic bending 
per unit path length decreases. In a magnetic field extending to infinity, it can be said that the particle 
direction asymptotically approaches its final direction. If we introduce a boundary such as the 
magnetopause, we often use the same terms to describe the direction of the particle velocity vector at the 
penetration location. (Ruth Gall in her work was most specific that these were directions of approac .) 
McCracken and co-workers (McCracken et al, 1968; Shea et al, 1965), performed c^culations in 
internal magnetic fields and utilized the particle velocity vector (expressed in geo^ntnc coordinates at 
radial distance of 25 earth radii) to specify the asymptotic direction of approach. The set of asympto i 
directions accessible to a specific location on the earth defines the asymptotic cone of accep^ce. The 
asymptotic longitude can exceed 360 degrees. Large asymptotic longitudes are indicative of how many 
times the trajectory has circumnavigated the earth during its transit. 

In early work on trajectory calculations Kasper (1959) found the “focusing effect” of the magnetic 
field where trajectories initiated outward from the earth with different azimuth and zenith angles of 
incidence (at high latitudes, within a factor of two above the cutoff rigidity) reached a smilar fina 

at distances far from the earth. This “focusing effect” which is valid when he scale 
size of the gradient in the earth’s magnetic field is less than the particle gyro-radii, also leads to the 
concept that asymptotic directions computed for vertically arriving particles are a good approximation of 
the entire asymptotic cone of acceptance. 

For polar or even mid-latitude muon detectors that only respond to high-energy parities, these 
asymptotic cones of acceptance are restricted to specific regions of the celestial sphere, ^hus if multip e 
stSs simultaneously observe an anisotropic solar cosmic ray flra, it is possible to 
direction in space and the anisotropy (see Cramp et al, 1995). If these Rations are located at different 
geomagneticLtoffs, it is possible to deduce the solar particle spe^tra. Similarly if a number of ^ 
ray stations, each having asymptotic cones of acceptance viewing a different po ion o ® ° 
sphere, rotate through a slowly evolving cosmic ray anisotropy, then it is possible to deconvolw th 
spatial anisotropy. (See Nagashima and Fujimoto, 1994, for an example of this application.) The 
S^ptotic direSons of approach in the ngidity range from 20 GV to 5 GV computed for cosmic ray 
muZdetectors for the maximum of the 29 September 1989 high-energy solar cosmic ray events are 

illustrated in Figure 3. 

In a rigidity scan of the trajectories allowed at a specific location (cosmic ray detector) 
geomagnetic bending of the particle trajectory increases as the particle ngidity decreays as 
Figure L The amount of geomagnetic bending becomes very large as the partcle "Ejdily appro^^^^^^ 
geomagnetic cutoff rigidity, perhaps involving several circum-navigations of the earth. The resu 
extremely broad asymptotic cone of acceptance for mid- or low-latitude stations with a large r g 
asymptotic longitudes involved. Figure 5 illustrates asymptotic cones of acceptance for selecte^ 
monitor stations projected on a spherical mapping of the earth. Note the longitudinal extent of 
asymptotic cones for the Calgary, Deep River, and Goose Bay, Canada and the Hobart, Australia cosmic 

ray stations. 
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PSYMPTOTIC LONGIT U DE 



Fiqure 3. World map projection of the asymptotic directions of aPP^oach 
computed for cosmic ray muon detectors for the 29 September 1989 
high-energy solar cosmic ray events. 



Figure 4. Asymptotic directions of approach computed for selected 
cosmic ray neutron monitors mapped on a spherical projection of the 
earth These projections are oriented on the probable interplanetary 
magnetic field direction for two specific solar cosmic ray events. 

Left: 29 September 1989. Right: 19 October 1989. 


In the trajectory calculations, we compute a trajectory M a s^ific rigidity 
assume that this result is representative of a finite domam ofngtdtty or angular 

Dossibilitv that sampling the rigidity spectrum at uniform intervals such as 0.01 GV might not identity tn 

first transihon from the continuously allowed rigidities to the cosmic ray / 

allowed and forbidden rigidity bands There is also the question of how valid is 

sample in one direction is truly representative of the entire asymptotic cone of acceptance for 

variety of directions. We have no definitive answer as yet to these questions. 

TTie problem of determining which trajectories are allowed and which are forbidden as s™P^^ 
as it might initially seem. In the internal magnetic field representations and especially in the m 
complex magnetospheric fields, there is a set of low rigidity trajectories that has very long path leng , 
consisting oSiany complex loops. Often for the sake of economy of computer resomces, trajectory 
are JrmJed after a large number of steps. Ms results 
traiectories whose fate is not resolved. In Stdrmer theory there is a special set of trajectones whicb w 
haie an arbitrary number of loops before reaching a final solution. In a simple dipole field, these 
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L retr reoJ„. woA fo, calculating geomagnetic 

cutoff rigidities. 

However there are definite limits to the use of the vertically incident cosmic ray 



Fiaure 5 A set of trajectory derived vertical cutoff rigidity values. 
Sfed at one degree intervals, along the 285 -degree east 
from the cosmic ray knee to the cosmic ray equator. Note the i regular 
character of the cutoff values. The upper computed cutoff. Hu. 's 
indicated by the upper boundary of the shaded area; the lower computed 
cutoff R/ (the last allowed trajectory) is indicated by the lower boun ary 
of the’ shaded area. The solid line is the ‘effective cutoff. 
to account for the transparency of the penumbra in the method as 
defined by Shea et al. (1965). 



Final Report Grant NAG5-8009, Section I Scientific Background 


10 


1.4. Accuracy of the Calculations 

better representations than the simple models. 

For precise Pa, ec, cries .evolving exact locattons on rite =a*, 

specified in geodetic coordinates^ See ^ high-energj particle accelerator. For this 

termination of muon trajectories from tea ayia, . ’ i_ „f about degree when transformed 

mid-latitude location the geodetic honzon is at an e e t 8 (^ 997 a) use 

into geocentric coordinates. Shea and (198 ^ focatio^on the surface of the earth or in the 

geodetic coordinates when calculating cu 8 iiatinarjarticle accessor geomagnetic cutoff 

Lrih.att„osp;»re,hntu^ 

for spacecraft (Smart and Shea, 199/0). cm^ii innns in the traiectory and the step size 

nnjectorics near the cutoff rigidity, there were sudden, ™ Ste pSory. However, 

adjustment algorithm did not respond with ilgration 

“«eSS^ isToSmelt^^^^^ “<i -=rify that the same solution is obmined.) 

1 , oc rvxtpr !inft Mever (1975) have used the prediction of the geomagnetic 

cutor^vXo“*cS^^^^ 

earth’s magnetic field. 

1.5. Summary 

The calculation of particle pajectories in the earth's research, 

limited the efficient utilizaPon of cosmic ray 

basis of trajectory calculations. 
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DESCRIPTION OF PROGRAM Xn95 


This software package is self-contained and capable of being compiled and executed on a variety of 
platforms ranging from a personal computer to large scale "super computers". T^e software is ^tten m 
FORTRAN 77 The software is designed to efficiently compute the trajectory of an energe ic c arg 
particle of a specified momentum per unit charge (rigidity) through a model magnetic field, ^or cosrnic 
ray access to the earth, the geocenter becomes the ongin of the coordinate system. Allcalcul 
done in the r, 0, <t> coordinate system (a right-handed, orthogonal coordinate system)^ The ma^ehc field 
subroutine incluld in this software is designed for efficient evaluation of the IGRF95 model of the 
earth's magnetic field. 

In its usual mode of computing the path of cosmic ray trajectories in a model of the 
field, we utilize this program to determine the path of a cosmic f ° 

interplanetary space arriving at the earth at a specified position and direction. To accomplish 
neg^ively charged particle is 'launched' from the 'top' of the atmosphere at ^ 
and longilide) in a specific direction (zenith and azimuth), and its Path traced though ^o 
field until it either (1) reaches a specified radial distance, (2) reenters the atmosphere, or (3) fails to reach 
either condition by a specified number of iterative steps. If the negative test particle path penetrates the 
specified outer boundary (reaches interplanetary space) the direction of the particle velocity vector the 
boundary crossing is specified as asymptotic latitude and longitude (m corresponding geocentnc 
If me charged partrcle re-enters the atmosphete, then the 
latitude and longitude) are given. In this version of the software, an oxygen nuclei ( O) is used as the test 
particle. Since rigidity is a canonical coordinate, the path of any charged particle having the specified 

rigidity will be the same. 

The software can be adapted to trace the path of any particle of a specified riptfly from a specified 
position and direction through any model magnetic field as long as the magnetic field is expressed as 
vectors in the r, 0, (j) coordinate system. 

The 'input' to this program is a data line that specifies the initial position (latitude, longitude 
and altitude above the earth's surface), direction (azimuth and zenith), and ngidity 
(momentum per unit charge) along with control parameters to do 'N' trajectory 
calculations at specified rigidity increments beginning at an initial specified ngidity. 

The 'output' of the software is in summary files with one line for each trajectory calculation. 

The fraditional summary output is called TAPE7 and is in an 80-column card irnage 
format. This contains the initial conditions (the geodetic latitude, longitude, rigidity, 
zenith, and azimuth), the final results (asymptotic latitude and longitude), fate of the 
trajectory, the number of steps in the trajectory calculation, plus a magnetic tield 

identifier. 

There is also a second output summary, traditionally called TAPE8, which is m a line 
printer 132 column format. This contains more detail; the initial conditions (the geode ic 
and geocentric latitude, the longitude, rigidity, zenith, and azimuth), the final results 
(asymptotic latitude and longitude, path length (in earth radii), trajectory transit time, 
time at altitudes under 100 km, number of maximum and minimum m radial distance 
along the trajectory, the trajectory fate, the number of steps in the calculation, plus a 
magnetic field identifier. 
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This structured FORTRAN 77 software assembly consists of a main program and four associated 
subroutines. The software has extensive internal comments to aid the user in understanding the program. 
The program and subroutines are; 


Program TJI95 

Subroutine GDGC 

Subroutine SINGLTJ 

Subroutine FGRAD 

Subroutine MAGNEW95 


Main program; primary purpose is control 
Conversion from geodetic to geocentric coordinates 
Calculates a particle trajectory 
Evaluates the V X B force vectors on the particle 
Evaluates the vector magnetic field at position r, 0, (j) 


Program Organization: 

Each subroutine has a separate unique function. Critical and often used variables ^defined in 
labeled common blocks. The important "working" variables are in the common block WRK\JU. 1 he 
trigonometric sines and cosines are in common block WRKTSC. definitions associated with the shape of 
the ellipsoid representing the surface of the earth are in common block GEOID. We have fo^^^d that 
some "Lper computers" do not allow mixing of real and integer vanables in Ae same 
therefore the are two additional common blocks associated with subroutine SINGLTJ These are 
common block SNGLR (real variables) and common block SNGLI (integer vanables) 


Accuracy and Precision 

It is recommended that the REAL*8 precision always be used. The primary limitation affecting the 
results is the accuracy of the magnetic field expansion. For reasonably simple trajectones he results 
should be repeatable, independent of the computer platform used. For long 

compiler options (round off or truncate, and the precision of mtnnsic function) begin to affect the resu . 
The calculation procedure includes automatic error checking. The particle acceleratiOT terms are 
monitored in subroutine SINGLTJ. When significant increases in the force on the particle ^e noted th ^ 
step size is reduced and the calculations are continued at smaller step intervals, m quantity BET (^ 
v/^ should be invariant throughout the calculation and is monitored. Changes of BETA exceeding p 
in 10* results in an automatic restart and the trajectory is recalculated at smaller step size increments. 

On some "main fames" the intrinsic functions are automatically derived in REi^*8 precision; on 
some other systems the intrinsic functions are evaluated in a REAL*4 mode unl^s P^*®' 

argument is specified. In this version intended for the Desktop Computer, all intrinsic functions a 
specified in the double precision mode; however, we have left a single precision statement comm 
out" immediately before each double precision statement. For simple trajectones the user probably 
cloTn ote any difference; however, for long complex hajectories, fted.ffer.mces between use of 
Single precision intrinsic functions and double precision mtnnsic fiinctions wiU become , 

specific rigidity and direction is used for comparison and the position of each trajectory step is monitored, 
the effect of the small differences between REALM and REALM accumulate and eventually the 
trajectory path will differ is it is a long complex trajectory. 

In the interest of computational speed, the magnetic field calculation routine drops the evaluation of 
the high order terms when they make an "insignificant" contribution to the total ma^etic field. Agmn 
long complex trajectories, these small differences accumulate and the trajectory paths may diverg 
different criteria are used for dropping magnetic field expansion. 
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User Defined Parameters: 

Two variables are intended to be user defined. Tbese are FSTEP and LIMIT. Default values have 

been set in the program, LIMIT = 600,000, and FSTEP - 4x10. 

LIMIT is the number of Runge-Kutta steps allowed before a trajectory is declared failed. 

FSTEP is the total number of Runge-Kutta steps allowed before the run is terminate . 

Simple high rigidity trajectories often require only several hundred steps. Simple trajectones a ove e 
upp^r cutoff rigidity often can be completed in a few thousand st^s. Most cosmic 
complete in about 10,000 steps. Some quasi-trapped periodic orbits may require more than 10^0,000 steps. 
ZvMoZs requim an infinite number of steps. Very low rigidity 

latitudes will exhibit the quasi-trapped behavior and probably fail to reach a solution. P 

criteria is based on the time to travel about one percent of a gyro-distance. Therefore trajectones with 
many loops require many steps to complete.) 

Assuming the user wants to operate in a "batch mode" some job control parameters are needed. This 

is the quantity FSTEP. Some estimate of the computer speed is necessary. For desktop persona 

compu^s tWs can range from a few hundred steps per second on old obsolete 486 chips to the order of 

50 000 steps per second obtainable with current Pentium® III chips operating at approximately 1 G 

ctocrc^cle time. We have found a very significant difference in the program conrputauonal speed on the 

same computer that can be attributed to the efficiency of the obj«t co^ genera^ by he 

our tesUng on desktop platforms we have found that the executable code general^ by the COWAQ® 

Visual Fortran operates efficiently on a Microsoft® Windows operating system. The wors pCT ormmg 

executable code ^derived from an old, no longer sold system) ran about five times sIowk on the 

set of trajectory Lculation. It is assumed that workstations will have trajectory 

the order or at least 1 0,000 steps per second. The default FSTEP setting will allow a batch run of the 

order of 10 hours if the program executes at 10,000 Runge-Kutta steps per second. 

Program Operation 

This program operates in the r, 0, cp coordinate system. The variables Y(l), ^2) and Y(3) are the 

position vectors in the r, 6, 9 coordinate system and the variables Y(4), Y(5), and Y(6) are the velocity 
vectors. 

The program initially defines the physical constants used in the calculation and confrol parameters. 
It then enters a control loop beginning with reading a data line to determine 

direction the specified starting rigidity and how many trajectories to calculate at s^cified increment^ 
For each control line read a call to subroutine GDGC converts the initial geodetic coordinates (map 
makers coordinates on the earth's surface) to geocentric r, 0, (j) coordinates. Then the trajectory 

calculations are done by subroutine SINGLTJ i i \ 

The control loop continues (read in control line, convert coordinates, do trajectory calculations) un 

a negative (or zero) value of rigidity is read in. When this occurs the program terminates. 


Labeled Common arguments: 

Block name: AVRKVLU/ 

Arguments in block 
F(6) 

Y(6) 

ERAD 


F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
Array of force and acceleration vectors 
Array of position and velocity vectors 
Average radius of the earth in kilometers 
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EOMC 

VEL 

BP 

BR 

BT 


Electronic charge divided by relativistic mass energy equivalent (mixed units) 

Particle velocity in earth radii per second 

Value of the B((()) magnetic field vector (in units of Gauss) 

Value of the B(r) magnetic field vector (in units of Gauss) 

Value of the B(0) magnetic field vector (in units of Gauss) 


Block name; 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


AVRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Block name: 
Arguments in block 
PI 

RAD 

PI02 


/TRIG/ 

PI, RAD, PI02 
Value of pi 

Value of degrees in a radian 
Value of pi/2.0 


Block name; 
Arguments in block 


ERADPL 

ERECSQ 


/GEOID/ 

ERADPL, ERECSQ 

Polar radius of the earth in kilometers 

Eccentricity of ellipsoid squared 


Block name: 
Arguments in block 

SALT 

DISOUT 

GCLATD 

GDLATD 

GLOND 

GDAZD 

GDZED 

RYl 

RY2 

RY3 

RHT 

TSTEP 


SALT, DISOUT, GCLATD, GDLATD, GLOND, GDAZD, GDZED, 

RYl , RY2, RY3, RHT, TSTEP 

Start altitude of trajectory above surface of geoid 

Radial distance (in earth radii) for termination of calculation 

Geocentric latitude in degree 

Geodetic latitude in degrees 

East longitude in degrees 

Geodetic azimuth in degrees 

Geodetic zenith in degrees 

Original start position Y(l), (radial component in the r, 0, q> coordinate system) 
Original start position Y(2), (theta component in the r, 0, (p coordinate system) 
Original start position Y(3), (phi component in the r, 0, (p coordinate system) 
Height above geoid where trajectory re-enters the atmosphere 
Total number of steps in this run. 


Block name: 
Arguments in block 
LIMIT 
NTRAJC 
lERRPT 


/SNGLI/ 

LIMIT, NTRAJC, lERRPT 

Maximum number of steps before 'failed' trajectory 
Number of trajectories calculated in this run 
Integer control for printing diagnostics (normally = 0) 


Subroutines called: 

GCGC (TCD, TSD) 
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TCD Cosine of the rotation angle 

TSD Sine of the rotation angle 


SINGLTJ (PC, IRSLT, 
PC 

IRSLT 

INDXPC 

YIGC 

Y2GC 

Y3GC 


INDXPC, YIGC, Y2GC, Y3GC) 

Particle rigidity (in units of GV) 

Integer result of trajectory calculation 

(+1 = Allowed, 0 = Failed, -1 = Re-entrant) 
Integer value of PC in units of MV 
Y(l) position in geocentric coordinates 
Y(2) position in geocentric coordinates 
Y(3) position in geocentric coordinates 


Dimensioned variables: 
F(6) 

Y(6) 


all in labeled common 

Array of force and acceleration vectors 

Array of position and velocity vectors 


Data files: none 


Output files: 

TAPE? from subroutine SINGTJ (80 character summary) 

TAPES from subroutine SINGTJ (132 character line printer summary) 
TAPE16 (diagnostic output; if desired, set lERRPT to > 0) 


Usting of all variables in program TJI95 


B 

BP 

BR 

BT 


Magnitude of the magnetic field (in Gauss) [in COMMON AVRKVLU/] 

Value of the B((|)) magnetic field vector (in Gauss) [in COMMON AVRKVLU^ 
Value of the B(r) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 
Value of the B(0) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 


CF 


Character variable "F" 


DELPC 

DISOUT 

ERAD 

ERADPL 

ERECSQ 

F(6) 


GCLATD 

GDAZ 

GDAZD 

GDLATD 

GDZE 


Increments of rigidity spacing search in control line 

Distance (in earth radii) for trajectory termination [in COMMON /SNGLR/] 

Average radius of the earth in kilometers [in COMMOM /AVRKVLU/] 

Polar radius of the earth in km [in COMMON /GEOID/] 

Eccentricity of ellipsoid squared [in COMMON /GEOID/] 

Array of "F" values (velocity and acceleration in program coordinates) 

[in COMMON /WRKA/LU/] 

Geocentric latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic azimuth in radians (measured clockwise from north) 

Geodetic azimuth in degrees (measured clockwise from north) 

Geodetic latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic zenith in radians (0 = vertical) 
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GDZED 

GLOND 


IDELPC 

lERRPT 

INDEX 

INDO 

INDXPC 

lOSTAT 

IRSLT 

ISALT 

LIMIT 

LSTEP 

NDO 

NTRAJC 

PC 

PI 

PI02 

RAD 

RHT 

RYl 

RY2 

RY3 


SALT 


TCD 

TCGDAZ 

TCGDZE 

TCY2 

TCY3 

TSTEP 

TSY2 

TSY3 


VEL 


Geodetic zenith in degrees (0 = vertical) 

Geodetic East longitude in degrees (from Greenwich meridian) 

[in COMMON /SNGLR/] 

Integer value of rigidity change increment in MV (attempt to avoid round off) 
Integer control for printing diagnostics (normally set to 0) 

Arbitrary index number of input control line (optional) 

Integer control of number of trajectories to calculate 

Integer value of rigidity in MV increments (attempt to avoid round off) 

Integer system argument of status of read 

Internal result of particle trajectory (+1 = allowed, 0 = failed, -1 = re-entrant) 
Integer value of start altitude (in km) above geoid surface 

Limit of number of steps before trajectory is declared "Failed" 

Number of times step size control has been reduced to overcome trajectory error 

Integer control read in (number of trajectories to compute from this control line) 
Number of trajectories in this computer run 

Rigidity of particle (in units of GV) 

Real value of the quantity Pi (—3.1415926535) [in COMMON /TRIG/] 

Real value of Pi divided by 2.0 [in COMMON /TRIG/] 

Real value of one radian (-57.29578 degrees) [in COMMON /TRIG/] 

Height above geoid where a trajectory re-entered the atmosphere 
Real value of the starting position of the r coordinate in r, 0, (|) coordinates 
[in COMMON /SNGLR/]] 

Real value of the starting position of the theta coordinate in r, 9, ([) coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the phi coordinate in r, 0, ([) coordinates 
[in COMMON /SNGLR/] 

Real value of the starting altitude above the surface of the geoid 
[in COMMON /SNGLR/] 

Trigonometric cosine of the rotation angle from geodetic to geocentric 
Trigonometric cosine of the geodetic azimuth 

(Measured clockwise from north) [in COMMON /SNGLR/] 

Trigonometric cosine of the geodetic zenith (measured clockwise from north) 
Trigonometric cosine of the vector theta angle in r, 9, (]> coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 0, (|» coordinates 
[in COMMON /SNGLR/] 

Number steps executed in this run 

Trigonometric sine of the vector theta (0) angle in r, 0, (|) coordinates 
[in COMMON /SNGLR/] 

Value of the trigonometric sine of the vector phi ((])) angle in r, 0, <|) coordinates 
[in COMMON /SNGLR/] 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 
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Y(6) 

YIGC 

YIGD 

Y2GC 

Y2GD 

Y3GC 

Y3GD 


Array of "Y" values (position and velocity in r, 9, ^ coordinates) 
[in COMMON AVRKVLU/] 

Starting position r component in geocentric coordinates 
Starting position r component in geodetic coordinates 
Starting position 0 component in geocentric coordinates 
Starting position 0 component in geodetic coordinates 
Starting position (j) component in geocentric coordinates 
Starting position ([) component in geodetic coordinates 
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Subroutine GDGC (TCD, TSD) 

This subroutine calculates the angle between geodetic and geocentric coordinates, "^e arguments 
TCD and TSD are the trigonometric cosine and sine of the rotation angle from a normal from the surtace 
of the geoid (geodetic coordinates) and a radial from the center of the earth (geocentnc coordinates). See 
Appendix B of NSSDC 72-12) 


Areuments in call statement 

TCD Cosine of the rotation angle 
TSD Sine of the rotation angle 


Labeled Common arguments: 

Block name: AVRKVLU/ 

Arguments in block F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
p(6) Array of force and acceleration vectors 

Y(6) Array of position and velocity vectors 

ERAD Average radius of the earth in kilometers j ^ 

EOMC Electronic charge divided by relativistic mass energy equivalent (mixed units) 

VEL Particle velocity in earth radii per second 

BP Value of the B((|)) magnetic field vector (in units of Gauss) 

BR Value of the B(r) magnetic field vector (in units of Gauss) 

BT Value of the B(0) magnetic field vector (in units of Gauss) 


Block name: 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


AVRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Block name: 
Arguments in block 
PI 

RAD 

PI02 


/TRIG/ 

PI, RAD, PI02 
Value of pi 

Value of degrees in a radian 
Value of pi/2.0 


Block name: 
Arguments in block 
ERADPL 
ERECSQ 


/GEOID/ 

ERADPL, ERECSQ 

Polar radius of the earth in kilometers 

Eccentricity of ellipsoid squared 


Block name: 
Arguments in block 

SALT 

DISOUT 

GCLATD 

GDLATD 

GLOND 


SALT, DISOUT, GCLATD, GDLATD, GLOND, GDAZD, GDZED, 

RYl , RY2, RY3, RHT, TSTEP 

Start altitude of trajectory above surface of geoid 

Radial distance (in earth radii) for termination of calculation 


Geocentric latitude in degrees 
Geodetic latitude in degrees 
East longitude in degrees 
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GDAZD 

GDZED 

RYl 

RY2 

RY3 

RHT 

TSTEP 


Geodetic azimuth in degrees 
Geodetic zenith in degrees 
Original start position Y(l) 

Original start position Y(2) 

Original start position Y(3) 

Height above geoid where trajectory re-enters the atmosphere 
Total number of steps in this run. 


Block name: 
Arguments in block 
LIMIT 
NTRAJC 
lERRPT 


/SNGLI/ 

LIMIT, NTRAJC, lERRPT 

Maximum number of steps before 'failed' trajectory 
Number of trajectories calculated in this run 
Integer control for printing diagnostics (normally = 0) 


Dimensioned variables : 
F(6) 

Y(6) 


all in labeled common 

Array of force and acceleration vectors 

Array of position and velocity vectors 


Subroutines called: none 


Data files: none 


Output files : none 


Operation : 

The shape of the earth used is not a sphere, but an ellipsoid having a specified polar radiuj 
eouatorial radius and eccentricity. When this subroutine is called, it defines the shape of an oblate eart 
from the polar and equatorial radius, and calculates vectors from a normal on \he surface of the elhpsoid 
to the specified position in geodetic coordinates, at the specified latitude, and determines the vector 
rotetioTmg^ geodetic coordinates and geocentric coordinates. The sine and cosine of this 
roStion mgle are passed to the calling program. Geodetic latitude is a measure of latitude in a coordmat 
system normal to the surface of the earth. At a position on or above the surface o^^he ellipsoid the 
slieht difference between a direction normal to the surface of the ellipsoid and a direction to the 

is dependenl. (It is zero a. equator or poles and can te as large as 

Lproximately 1/2 of a degree at mid latitudes.) The vector rotation angle all^s for direction 
spLificationlnboth geodetic (map) coordinates and geocentric coordinates. This small correction for th 
dfrection may be insignificant for some applications, but may be significant for precision calculation 

specific direction at high rigidities. 


Data checking : none. The data to describe the shape of the earth are included in the subroutine. 


T of all variables used in subroutine GDGC of program TJI95 Tin 

^ Magnitude of the magnetic field (in Gauss) [m COMMON /^VLU^ 

Value of the B((j)) magnetic field vector (in Gauss) [m COMMON /WRKVLU/] 


B 

BP 
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BR 

BT 

DISOUT 

DISTKM 

EOMC 

ERAD 

ERADPL 

ERECSQ 

ERPLSQ 

F(6) 


GCLATD 

GDAZD 

GDCLT 

GDLATD 

GDZED 

GLOND 


ONE 

PI 

PI02 

RAD 

RHO 

RHT 

RYl 

RY2 

RY3 


SALT 


TCD 

TCGDCLT 

TCY2 

TCY3 

THREE 


Value of the B(r) magnetic field vector (in Gauss) [in 

Value of the B(0) magnetic field vector (m Gauss) [m COMMON AVRK /] 

Distance (in earth radii) for trajectory termination [in COMMON /SNGLR/] 
Starting position geocentric radial distance from geocenter 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 
[in COMMON AVRKVLU/] nn 

Average radius of the earth in kilometers [in COMMOM AVRKVLU/] 

Polar radius of the earth in km [in COMMON /GEOID/] 

Eccentricity of ellipsoid squared [in COMMON /GEOID/] 
nf parth /in kml squared 


Array of "F" values (velocity and acceleration in program coordinates) 

[in COMMON /WRKVLU/] 

Geocentric latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic azimuth in degrees (measured clockwise from north) 

Geodetic co-latitude (in radians) /qnot R/1 

Geodetic latitude in degrees (+ = north, south - -) [m COMMON /SNOLRy^ 

Geodetic zenith in degrees (0 = vertical) 

Geodetic East longitude in degrees (from Greenwich mendian) 

[in COMMON /SNGLR/] 

term in comoutations (see NSSDC ALLMAG description) 


Real value of the quantity Pi (-3.1415926535) [in COMMON /TRIG/] 
Real value of Pi divided by 2.0 [in COMMON /TRIG/] 


Real value of one radian (-57.29578 degrees) [in COMMON /TRIG/] 
Intermediate term in computations (see NSSDC ALLMAG escnp ion) 
Height above geoid where a trajectory is declared re-entrant 
[in COMMON /SNGLR/] 

of the starting position of the r coordinate m r, 6, ^ coordinates 


[in COMMON /SNGLR/] 

Real value of the starting position of the theta coordinate m r, 6, ^ coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the phi coordinate in r, , (|» coor ma es 
[in COMMON /SNGLR/] 


Real value of the starting altitude above the surface of the geoid 
[in COMMON /SNGLR/] 

Trigonometric cosine of the rotation angle from geodetic to geocentric 

Trigonometric cosine of the geocentric co-latitude 

Trigonometric cosine of the vector theta angle in r, 0, <t> coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 0, (j) coordinates 
[in COMMON /SNGLIU] 

Intermediate term in computations (see NSSDC ALLMAG descnpUon) 
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Trigonometric sine of the rotation angle from geodetic to geocentric 

Trigonometric sine of the geocentric co-latitude 

Number steps executed in this run 

Trigonometric sine of the vector theta (0) angle in r, 0, (|) coordinates 
[in COMMON /SNGLR/] 

Trigonometric sine of the vector phi ((j>) angle in r, 0, (|) coordinates 
[in COMMON /SNGLR/] 

Intermediate term in computations (see NSSDC ALLMAG description) 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 

Array of "Y" values (position and velocity in r, 0, ^ coordinates) 

[in COMMON AVRKVLU/] 


Reference publication: 

AT.LMAG. GCA7XMG. T-TNTRA: Commuter Programs For Geo magnetic Field And Field-Ling 
Calculations . E.G. Stassinopulous and G.D. Mead, NSSDC 72-12, February 1972, NASA, GFSC, 
Greenbelt MD. 


TSD 

TSGDCLT 

TSTEP 

TSY2 

TSY3 

TWO 

VEL 

Y(6) 
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Subroutine SINGLTJ (PC, IRSLT, INDXPC, YIGC, Y2GC, Y3GC) 

This subroutine does the actual trajectory tracing. When called it initially defines control parameters 
and constants used in the particle tracing and initializes the Runge-Kutta variables to zero. It sets up the 
initial position and direction, and defines the relativistic parameters relating to the particle total energy 
and speed. 

In this version of the subroutine, an oxygen nuclei (*®0) is used as the test particle. By definition a 
■*0 nuclei has a mass of 1 6 Atomic Mass Units (AMU) and an atomic charge of 8. The mass-energy 
conversion for one AMU is 0.93 1 14 GeV. If it were desired to modify the program for some other nuclei, 
such as a proton that has an atomic charge of 1 and atomic mass of 1.0081415 AMU, then the rest mass 
energy for atomic nuclei must be adjusted. 

After the initial definitions, the subroutine then chooses an initial starting step length (a relatively 
small value) and starts the Runge-Kutta process of tracing the particle trajectory. After each step it goes 
though an error checking and detection process. If the checks are satisfactory, it determines the particle 

location with respect to the atmosphere and the outer boundary. 

If the charged particle is between the atmosphere and the outer boundary, it adjusts the size 
of the next step and continues the trajectory tracing until the LIMIT on the number of 
steps is reached. 

If the charged particle is entering the atmosphere, it terminates the calculation. 

If the charged particle is less than 100 km above the earth's surface, it maintains a running 
sum of the time at low altitudes. 

If the charged particle is approaching the outer boundary, it adjusts the step size so it 
penetrates this boundary at small step lengths. 

If the charged particle has penetrated the outer boundary at a small step, it computes the final 
coordinates. 

When the particle has reached a solution (allowed or re-entrant) or reached the step limit, it writes 
out the result and returns to the calling program. 

Arguments in call statement 

PC, IRSLT, INDXPC, YIGC, Y2GC, Y3GC 
PC Particle rigidity 

IRSLT Integer result of trajectory (+1 = allowed, 0 = failed, -1 = re-entrant) 

INDXPC Integer value of PC in MV units 

Y 1 GC Y( 1 ) position in geocentric coordinates 

Y2GC Y(2) position in geocentric coordinates 

Y3GC Y(3) position in geocentric coordinates 


Labeled Common arguments : 

Block name: /WRKVLU/ 

Arguments in block F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
Array of force and acceleration vectors 
Array of position and velocity vectors 
Average radius of the earth in kilometers 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 
Particle velocity in earth radii per second 
Value of the B((|)) magnetic field vector (in units of Gauss) 

Value of the B(r) magnetic field vector (in units of Gauss) 


F(6) 

Y(6) 

ERAD 

EOMC 

VEL 

BP 

BR 
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BT 


Value of the B(0) magnetic field vector (in units of Gauss 


Block name; 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


AVRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Block name; 
Arguments in block 
PI 

RAD 

PI02 


/TRIG/ 

PI, RAD, PI02 
Value of pi 

Value of degrees in a radian 
Value of pi/2.0 


Block name; 
Arguments in block 


ERADPL 

ERECSQ 


/GEOID/ 

ERADPL, ERECSQ 

polar radius of the earth in kilometers 

Eccentricity of ellipsoid squared 


Block name; 
Arguments in block 

SALT 

DISOUT 

GCLATD 

GDLATD 

GLOND 

GDAZD 

GDZED 

RYl 

RY2 

RY3 

RHT 

TSTEP 


SALT, DISOUT, GCLATD, GDLATD, GLOND, GDAZD, GDZED, 

RYl , RY2, RY3 , RHT, TSTEP 

Start altitude of trajectory above surface of geoid 

Radial distance (in earth radii) for termination of calculation 

Geocentric latitude in degrees 

Geodetic latitude in degrees 

East longitude in degrees 

Geodetic azimuth in degrees 

Geodetic zenith in degrees 

Original start position Y(l), (radial component in the r, 0, q> coordinate system) 
Original start position Y(2) , (theta component in the r, 0, (p coordinate system) 
Original start position Y(3) , (phi component in the r, 0, cp coordinate system) 
Height above geoid where trajectory re-enters the atmosphere 
Total number of steps in this run. 


Block name; 
Arguments in block 
LIMIT 
NTRAJC 
lERRPT 


/SNGLI/ 

LIMIT, NTRAJC, lERRPT 

Maximum number of steps before 'failed' trajectory 
Number of trajectories calculated in this run 
Integer control for printing diagnostics (normally = 0) 


Dimension variables; (not in labeled common) 

P^, Q(6), R(6), S(6), YB(6), FOLD(6), YOLD(6) 

P(6) Runge-Kutta variable 

Q(6) Runge-Kutta variable 

R(6) Runge-Kutta variable 

Runge-Kutta variable 
YB(6) Runge-Kutta variable 

FOLD(6) "F" vectors of previous step 

Y0LD(6) " Y" vectors of previous step 
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Subroutines called: FGRAD 


Data files: none 


Output files : 

TAPE? (80 character summary) 

TAPES (132 character line printer summary) 

TAPE 16 (diagnostic output; if desired set lERRPT to > 0) 


Program Operation : 

This program operates in the r, 0, cp coordinate system. The variables Y(l) ^ and Y(3) a^^ 
position vectors in the r, 0, cp coordinate system and the vanables Y(4), Y(5), and Y(6) are the velocity 
vectors. 

When this subroutine is called, it initially defines control parameters and constants used in the 
particle path tracing, and initializes the Runge-Kutta vanables to zero. obtains the particl^^^^^^ 
respect to the surface of an oblate earth. It sets up the initial position vectors, Y(l), Y(2) and Y(3), and 
based on the particle rigidity, sets up velocity vectors, Y(4), Y(5), ^d Y(6). It then ^ 

relativistic parameters TENG (total energy), EOMC (charge per relativistic 

GMA (the relativistic parameter of total energy over the rest mass energy). It defines scalar qo^tities 
relating to the particle, BETA (the particle speed with respect to light), PVEL (the particle speed in 
radii per second), and HMAX (a maximum step length allowed for this particle ngidity). 

Next it defines an initial starting step length (a relatively small value) and starts the Rmge-Kutta 
process of tracing the particle trajectory. Comment cattls specifically indicate te 
process which is the coding between FORTRAN statement numbers 1 30 and 1 70. The calls to 
Lbroutine FGRAD evaluate the V X B force on the particle dunng this step. The logic is very similar to 
that documented in Ralston and Wilf (1960). After each Runge-Kutta iteration step there is an extensive 
error checking and detection process. 

The error checking process begins with a check on the particle speed (BETA), 
invariant throughout the trajectory. If the difference between the initial particle speed (BETA) and 
current speed (RCKBETA) is greater than EDIF, then the trajectory tracing process is re-initialized 
(including the NSTEP variable) and the trajectory re-started at a smaller step size selection cntena^ p o 
five re-starts are allowed before the specific trajectory is declared impossible to calculate, evaluated 
"failed" and the path length made negative in order to distinguish it from successful trajectones. In o 
to atterript to reach a solution the EDIF variable is widened by a factor of two after each successive 
trajectory failure. 

After the error check, then the acceleration of the particle is compared with previous values. We 
have found that computational errors are most likely to occur when there are rapid changes in 
acceleration. If the average change in acceleration exceeds a factor of five, or if any component of th 
acceleration exceeds a factor of three, then the step length for the next Runge-Kutta step is reduced. 
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Alone the particle path the software checks the particle location with respect to the atmosphere and 
the outer teundary If the charged particle is less than 100 km above the earth's surface, it maintains a 

at low alies. If the charged particle is entering the atmosphere, it terminates 

the calculation. 

The next check determines if the particle has penetrated the outer termination ^ 

length can be relatively large at extreme distances from the earth. If the outer boun^ry has ^ee 
pTnetatS at size, the trajectory is "backed up" and the step size reduced until it penetrates the 

boundary at a small step size. This results in a more precise determination of the penetration loca ion 
and can significantly affect the computed asymptotic direction. 

Tf there are no errors and the charged particle is between the atmosphere and the 
sofJIre adjusts the size of the next step appropriate for the magnitude of the 

is normally about one percent of the gyro-distance) and conunues the ttujectory tracing. The baste step 
length algorithm is; 

H = ((2.0*71*33. 333*PC)/(B*p*C))/100.0 

where "H" is time in seconds, "PC" is the particle rigidity in GV, "B" is the magnitude of 

the magnetic field in Gauss and "C" is the speed of light in km/sec 

(A handy formula to remember is the gyro-radius is 33 km per GV per Gauss) 

The software initially starts at a trajectory calculation at a small step size and the 
to grow at a maximum of about 20 percent each step. If the parUcle trajectory ^ 

altSide then the step size is reduced to compensate for the increasing magnitude of the ma^etic field. 
When a loop in the frajectory develops, the acceleration forces increase and step size adjustments 
made in the case of a significant increase in the acceleration forces. 

During the trajectory tracing, the software notes the number of maxirnum ^d minima the trajectory 
experiences. This information is useful in ascertaining the complexity of the trajectory. 

When the particle has reached a solution (allowed or re-entrant) or reached the step lirmt, *e 

™te out the result and return to the calhng program. The fate.s coded m th variable 
Allowed, 1= Failed, 2 - Re-entrant, 3 - Failed, but max alt > 6.6 earth radn) 

If the trajectory is allowed (penetrates the outer boundary), then the velocity vectors are transformed 
into al^pSSe and longlde. Asymptotic latitude and longihide^e the 
the veS vector would have at infinity. If the trajectory re-enters the atmosphere, then the pos 
coordinates are transformed to geocentric latitude and longitude. 

The 'output' of the software is in summary files, on one line for each trajectory calculation. 

^TAre? ^s in an 80-column "card image" format. This contains the initial conditions 
(the geodetic latitude, longitude, rigidity, zenith, and azimuth), the final resu s 
(asymptotic latitude and longitude, fate and number of steps), and a magnetic field 

identifier. 

TAPES is in a line printer 1 32-column format. This contains more detail; the initial 
conditions (the geodetic latitude and the geocentric latitude, the longitude, ngidity 
zenith and azimuth), the final results (asymptotic latitude and longitude, path lengt , 
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trajectory time, time at altitudes under 100 km, number of ^ximum and minimum m 
trajectory, fate, and number of steps), and a magnetic field identifier. 

TAPEI 6 is a diagnostic output, including a record of restarts due to BETA checks 

or traiectory failures. 


See the examples section for samples of the output. 


Possible Additions for Trajectory Plotting 

If it is desired to plot a trajectory, the position variables Y(l), Y(2), a^ Y^) inust be stored after 
each ^lge^Sa ,n a sa.iable?,.ay. The «sk of addmg such a m«d.f,ca»o„ should he 
Straightforward and is left to the individual program user. 


T .i sting of all 


ACCER 

ACCOLD 

AFOLD 

AHLT 

ANUC 

ATRGl 

ATRG2 

AZD 

B 

BETA 

BETAST 

BP 

BR 

BT 

CF 

CNAME 

CR 

DELACC 

DISCK 

DISOUT 

DISTR 

EDIF 

EMCSQ 

EOMC 

ERAD 

ERADPL 

ERECSQ 

F(6) 


va riables in subroutine SINGLTJ 

Magnitude of current value of the particle acceleration 
Magnitude of last value of the particle acceleration 
Absolute value of FOLD 
Variable to control step size at high latitude 

Atomic number of number of nucleons in atom nrchleml 

Intermediate value to compute asymptotic atitude (avoid 0/0 Problem) 
Intermediate value to compute asymptotic latitude (avoid 0/0 problem) 

Azimuth angle in degrees (measured clockwise from north) 

Magnitude of the magnetic field (in Gauss) [in COMMON . 

Particle speed as fraction of light speed (P = v/c where c is speed of light) 

Control variable for reducing step size if error /WRKVLU/1 

Value of the B(<t.) magnetic field vector ^auss) [m CO^W 

Value of the B(r) magnetic field vector (in Gauss) [in 

Value of the B(0) magnetic field vector (in Gauss) [in COMMON /WRKVLU/J 

Character variable "F" , 

Character variable (up to 6 characters) identifying magnetic field used 

Character variable "R" 

Change in particle acceleration from previous step 
Step length control variable to approach boundary at 

Distance (in earth radii) for trajectory termination [in COMMON /SNGL^] 
Radial distance (in earth radii) from current distance to termination boundary 

Variation in p allowed before error declared 

Average [m COMMOM AVRKVLU/] 

"of :„^er[,”N “eO^/1 

Array of "F" values (velocity and acceleration in program coordinates) 
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FOLD(6) 

FASLAT 

FASLON 

GCLATD 

GDAZD 

GDLATD 

GDZED 

GLOND 

GMA 

GRNDKM 

H 

HB 

HCK 

HCNG 

HMAX 

HOLD 

HSNEK 

HSTART 

I 

lAZ 

ICK 

lERRPT 

IFATE 

INDXPC 

IRT 

IRSLT 

ISALT 

IZE 

KBF 

LIMIT 

LSTEP 

NMAX 

NMIN 

NSTEP 

NSTEPT 

NTRAJC 

P(6) 

PATH 

PC 

PI 

PI02 


[in COMMON AVRKVLU/] 

Array of "F" values (velocity and acceleration) from previous step 
Asymptotic latitude (in degrees) 

Asymptotic longitude (in degrees east of the Greenwich meridian) 

Geocentric latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic azimuth in degrees (measured clockwise from north) 

Geodetic latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic zenith in degrees (0 = vertical) 

Geodetic East longitude in degrees (from Greenwich meridian) 

[in COMMON /SNGLR/] 

Relativistic factor (total energy/rest energy) 

Altitude above surface of earth at this latitude (in km) 

Runge-Kutta step size (in seconds) 

Preliminary value of step size for P = 1 
Control to limit step size growth to 20% 

Change of step size from previous step 
Maximum value of step size allowed 
Value of previous Rimge-Kutta step size 
Control to approach 90% of distance to boundary 
Starting step size value (deliberately made small) 

Index variable in do loops 

Integer value of azimuth (measured counter clockwise from north) 

Index for checking acceleration growth 

Integer control for printing diagnostics (normally set to 0) 

Integer fate of particle trajectory ( 0 = Allowed, 1 = Failed, 2 = Re-entrant 

3 = Failed, but max alt > 6.6 earth radii) 

Index of particle rigidity in MV 

Integer control for writing results (+1 = Allowed, 0 = Failed, -1 - Re-entrant) 
Internal result of particle trajectory (+1 = Allowed, 0 = Failed, -1 = Re-entrant) 
Integer value of start altitude (in km) above earth surface 
Integer value of zenith angle (in degrees) 

Number of failed attempts to trace this trajectory 


Limit of number of steps before trajectory declared "Failed" 

Number of times the step size control reduced to overcome trajectory error 


Number of maxima in complex trajectory path 
Number of minima in complex trajectory path 
Number of steps in current trajectory 

Temporary variable that can be used to print out first 1000 steps 
Number of trajectories in this computer run 


Array of intermediate values used in Runge-Kutta integration 
Total distance of trajectory path from start to termination 
Rigidity of particle (in units of GV) 

Real value of the quantity Pi (-3.1415926535) [in COMMON /TRIG/] 
Real value of Pi divided by 2.0 [in COMMON /TRIG/] 
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PSALT 

PTCY2 

PVEL 

R(6) 

RIOOKM 

R120KM 

RAD 

RC106 

RCKBETA 

RENLAT 

RENLON 

REA 

RECK 

RHT 

RYl 

RY2 

RY3 


S(6) 

SALT 

SR2 

TAU 

TBETA 

TCY2 

TCY3 

TENG 

TMS202 

TPS202 

TSTEP 

TSY2 

TSY2SQ 

TSY3 

TUlOO 

VEL 

Y(6) 

YB(6) 

YIO 


Current particle distance from ground (used for re-entrant calculations) 

Absolute value of cosine Y(2) (used in control of polar step size) 

Particle velocity (in earth radii per second) 

Array of intermediate values used in Runge-Kutta integration 

Y(l) distance of 100 km altitude at this latitude 

Y(l) distance of 120 km altitude at this latitude 

Real value of one radian (-57.29578 degrees) [in COMMON /TRIG/] 

Constant in Runge-Kutta integration (1. 0/6.0) 

Current value of particle P after this step 
Latitude of re-entrant particle intersection with atmosphere 
Longitude of re-entrant particle intersection with atmosphere 
Ratio of acceleration magnitude between current step and last step 
Ratio of acceleration component between current step and last step 
Height above geoid where a trajectory re-entered the atmosphere 
Real value of the starting position of the r coordinate in r, 0, <|) coordinates 
[in COMMON /SNGLRyl 

Real value of the starting position of the theta coordinate in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the phi coordinate in r, 0, <|) coordinates 
[in COMMON /SNGLR/] 

Array of intermediate values used in Runge-Kutta integration 
Real value of the starting altitude above the surface of the geoid 
[in COMMON /SNGLRy] 

Runge-Kutta constant (square root of 2.0) 

Time (in seconds) for a trajectory transit from start to termination • 

Difference between current value of P and starting value of p 
Trigonometric cosine of the vector theta (0) angle in r, 0, ^ coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi (<[)) angle in r, 0, <|) coordinates 
[in COMMON /SNGLR/] 

Total energy of particle (kinetic energy plus rest mass energy) 

Runge-Kutta constant (2.0 - SR2/2.0) 

Runge-Kutta constant ((2.0 + SR2/2.0) 

Number steps executed in this run 

Trigonometric sine of the vector theta (0) angle in r, 0, <[> coordinates 
[in COMMON /SNGLR/] 

Square of TSY2 

Value of the trigonometric sine of the vector phi (([>) angle in r, 0, 4) coordinates 
[in COMMON /SNGLR/] 

Time (in seconds) the particle is under 100 km altitude 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 

Array of " Y" values (position and velocity in r, 0, (|) coordinates) 

[in COMMON /WRKVLU/] 

Array of intermediate values used in Runge-Kutta integration 
Y(l) radial coordinate for re-entrant distance at this latitude 
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YIGC 

Y2GC 

Y3GC 

YDA5 

YMAX 


Starting position r component in geocentric coordinates 
Starting position 0 component in geocentric coordinates 
Starting position (() component in geocentric coordinates 
Intermediate value for computing asymptotic latitude 
Maximum radial distance attained by trajectory 


ZCHARGE Atomic charge number 

ZED Zenith angle in degrees 


Reference publication: 

Ralston, A, and Wilf, S.H., Mathematical Mo dels for Digital Computers, JohnWiley and Sons, New 
York, I960. 


Final Report Grant NAG5-8009, Section II, Parti, TJI95 Program Description 


32 


Subroutine FGRAD 


This subroutine calculates the V X B force on the charged particle. 


Arguments in call statement : none. All in labeled common 


Labeled Common arguments : 

Block name; AVRKVLU/ 

Arguments in block F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
Array of force and acceleration vectors 
Array of position and velocity vectors 

ERAD Average radius of the earth in kilometers , ■ a > ^ 

EOMC Electronic charge divided by relativistic mass energy equivalent (mixed unitsj 

VEL Particle velocity in earth radii per second 

gp Value of the B((()) magnetic field vector (in units of Gauss) 

BR Value of the B(r) magnetic field vector (in units of Gauss) 

gj Value of the B(0) magnetic field vector (in units of Gauss) 


Block name: 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


AVRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Subroutines called : 

MAGNEW95 


(All arguments are in labeled common /WRKVLU/ and AVRKTSC/) 


Data files: none 


Output files : none 


Program Operation : 

When this subroutine is called, the force vectors, ((F(l), F(2), F(3)) are defined. The sine and cosine 
of the Y(2) coordinates are determined. The magnetic field vectors (BR, BT, BP) at the particle position 
^(1), Y(2), Y(3)) are obtained by the call to subroutine MAGNEW95. Then the acceleration vectors 

(F(4), F(5), F(6)) are calculated. 


Listing of all variables in subroutine FGRAD in program TJI95 t t/i 

g Magnitude of the magnetic field (in Gauss) [m COMMON 

gp Value of the B((|)) magnetic field vector (in Gauss) [m COMMON AVRKVLU/] 
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BR 

BT 

EOMC 

ERAD 

F(6) 

SQY6 

TAY2 

TCY2 

TCY3 

TSY2 

TSY3 

VEL 

Y(6) 

Y50Y1 


Value of the B(r) magnetic 
Value of the B(0) magnetic 


field vector (in Gauss) [in COMMON AVRKVLU/] 
field vector (in Gauss) [in COMMON AVRKVLU/] 


Electronic charge divided by relativistic mass energy equivalent (mixed units) 

[in COMMON AVRKVLU/] , t rn 

Average radius of the earth in kilometers [in COMMOM /WRKVLU/] 


Array of "F" values (velocity and acceleration in program coordinates) 
[in COMMON /WRKVLU/] 

Intermediate term (Y6)*Y(6)/Y(1) 

Intermediate term TSY2/TSC2 

Trigonometric cosine of the vector theta angle in r, 9, ^ coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 0, ^ coordinates 
[in COMMON /SNGLR/] 

Trigonometric sine of the vector theta (0) angle in r, 0, (|) coordinates 
[in COMMON /SNGLR/] 

Trigonometric sine of the vector phi ((])) angle in r, 0, (|) coordinates 
[in COMMON /SNGLR/] 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 


Array of "Y" values (position and velocity in r, 0, ^ coordinates) 
[in COMMON AVRKVLU/] 

Intermediate term Y(5)/Y(l) 
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Subroutine MAGNEW95 


This is the magnetic field evaluation program containing the IGRF95 magnetic field model m 
pervious term. 


Arguments in call statement : none. (All in labeled common) 


l abeled Common areuments : 

Block name: AVRKVLU/ 

Arguments in block 
F(6) 


Y(6) 

ERAD 

EOMC 

VEL 

BP 

BR 

BT 


F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
Array of force and acceleration vectors 
Array of position and velocity vectors 

Particle velocity in earth radii per second 
Value of the B((t)) magnetic field vector (in units of Gauss) 
Value of the B(r) magnetic field vector (in units of Gauss) 
Value of the B(0) magnetic field vector (in units of Gauss) 


Block name; 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


avrktsc/ 

TSY2,TCY2,TSY3,TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordmate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Dimensioned variables: (not in labeled common) 

r n 1 1 D ^ ^ ^N^alVzed coefficients ordered for fast serial computation 

BM( i 1) Values to determine if the expansion should terminated at order N 


Program Operation : 

This subroutine is designed for efficient senal ° J code) 

LtuTr^qShet;^^^^^^^^^ Tegender polynomials each time the subroutine is called. 

When this subroutine is called it checks the The array 

it loads in the data coefficients; otherwise it proceeds y coefficients ordered for fast 

" at. of vtes ..a. de.eno.„e .f expans.on should he 
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terminated above a specified order because the additional contribution of the magnetic field would not be 
significant. (This is an additional technique to speed up the computation.) 

At the beginning of the magnetic field determination, the sine and cosine of Y(3) (the phi coordinate) 
are calculated. (This has not been done since the completion of the last Runge-Kutta step.) It then 
determines the value of the AR variable; AR is reciprocal of the radial distance, (Y(l)) m earth radii. 
Each order of the field expansion requires an evaluation of AR where N is the order of the field 
expansion. (The N = 1 term, a description of a monopole magnetic field, is zero.) The first magnetic 
field evaluation designated by N = 2 is the dipole field component. Each subsequent order of expan^n 
evaluates the contribution of the next order and adds this to the contribution of the previous orders. The 
final computation converts the magnetic field vectors to units of Gauss. ( One Gauss - 10 Nt). A more 
detailed description of the process is given in NSSDC DATA USERS NOTE 68-11. 


T.isting of all variables in subroutine MAGNEW95 

Temporary value of radial distance (in earth radii) to the N power 

1.0/Radial distance (in earth radii) [AR = 1.0/Y(1)] 

Magnitude of the magnetic field (in Gauss) [in COMMON /WRKVLU/] 
Variable for dropping terms if field magnitude is less than significant value 
(set to 0.001 for improved accuracy) 

Array of check values for dropping terms of magnetic field expansion 
Value of the magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 
Value of the B(r) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 
Value of the B(0) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 

Derivative of the polynomial (10,1) term 
Derivative of the polynomial (10,2) term 
Derivative of the polynomial (10,3) term 
Derivative of the polynomial (10,4) term 
Derivative of the polynomial (10,5) term 
Derivative of the polynomial (10,6) term 
Derivative of the polynomial (10,7) term 
Derivative of the polynomial (10,8) term 
Derivative of the polynomial (10,9) term 
Derivative of the polynomial (1 1,1) term 
Derivative of the polynomial (11,10) term 
Derivative of the polynomial (11,11) term 
Derivative of the polynomial (1 1,2 term 
Derivative of the polynomial (1 1,3 term 
Derivative of the polynomial (1 1,4) term 
Derivative of the polynomial (1 1,5) term 
Derivative of the polynomial (1 1,6) term 
Derivative of the polynomial (1 1,7) term 
Derivative of the polynomial (1 1,8) term 
Derivative of the polynomial (1 1,9) term 
Derivative of the polynomial (2,1) term 
Derivative of the polynomial (2,2) term 
Derivative of the polynomial (3,1) term 
Derivative of the polynomial (3,2) term 
Derivative of the polynomial (3,3) term 


AOR 

AR 

B 

BERR 

BM(ll) 

BP 

BR 

BT 


DPIOI 
DP102 
DP103 
DP 104 
DP105 
DP106 
DP 107 
DP 108 
DP 109 
DPI 11 
DPI 110 
DPllll 
DPI 12 
DPI 13 
DPI 14 
DPI 15 
DPI 16 
DPI 17 
DPI 18 
DPI 19 
DP21 
DP22 
DP31 
DP32 
DP33 
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DP41 

DP42 

DP43 

DP44 

DP51 

DP52 

DP53 

DP54 

DP55 

DP61 

DP62 

DP63 

DP64 

DP65 

DP66 

DP71 

DP72 

DP73 

DP74 

DP75 

DP76 

DP77 

DP81 

DP82 

DP83 

DP84 

DP85 

DP86 

DP87 

DP88 

DP91 

DP92 

DP93 

DP94 

DP95 

DP96 

DP97 

DP98 

DP99 

DPIOIO 

EOMC 

ERAD 

ERR 

F(6) 




Derivative of the polynomial (4,1) term 
Derivative of the polynomial (4,2) term 
Derivative of the polynomial (4,3) term 
Derivative of the polynomial (4,4) term 
Derivative of the polynomial (5,1) term 
Derivative of the polynomial (5,2) term 
Derivative of the polynomial (5,3) term 
Derivative of the polynomial (5,4) term 
Derivative of the polynomial (5,5) term 
Derivative of the polynomial (6,1) term 
Derivative of the polynomial (6,2) term 
Derivative of the polynomial (6,3) term 
Derivative of the polynomial (6,4) term 
Derivative of the polynomial (6,5) term 
Derivative of the polynomial (6,6) term 
Derivative of the polynomial (7,1) term 
Derivative of the polynomial (7,2) term 
Derivative of the polynomial (7,3) term 
Derivative of the polynomial (7 ,4) term 
Derivative of the polynomial (7,5) term 
Derivative of the polynomial (7,6) term 
Derivative of the polynomial (7,7) term 
Derivative of the polynomial (8,1) term 
Derivative of the polynomial (8,2) term 
Derivative of the polynomial (8,3) term 
Derivative of the polynomial (8,4) term 
Derivative of the polynomial (8,5) term 
Derivative of the polynomial (8,6) term 
Derivative of the polynomial (8,7) term 
Derivative of the polynomial (8,8) term 
Derivative of the polynomial (9,1) term 
Derivative of the polynomial (9,2) term 
Derivative of the polynomial (9,3) term 
Derivative of the polynomial (9,4) term 
Derivative of the polynomial (9,5) term 
Derivative of the polynomial (9,6) term 
Derivative of the polynomial (9,7) term 
Derivative of the polynomial (9,8) term 
Derivative of the polynomial (9,9) term 
Derivative of the polynomial (10,10) term 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 
(not used in this subroutine) [in COMMON AVRKVLU/] 

Average radius of the earth in kilometers (not used in this subroutine) 

[in COMMOM AVRKVLU/] 

Intermediate term used to evaluate when higher order terms can be dropped 

Array of "F" values (velocity and acceleration in program coordinates) 

[in COMMON AVRKVLU/] 

Array of normalized magnetic field coefficients ordered for fast computation 
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GMSUM 

GSUM 

JDATA 

JMAG 


Check value to assure that proper magnetic field coefficients are loaded 
Check data for testing that proper magnetic field coefficients are loaded 

Integer test value for loading in data statement for magnetic field coefficients 
Integer order of magnetic field expansion (N+1) 


Intermediate index for data checking 


M 

MGNMAX 


Intermediate index for data checking 

Integer value of maximum order of magnetic field expansion 


PlOl 

Polynomial (10,1) term 

PlOlO 

Polynomial (10,10) term 

P102 

Polynomial (10,2) term 

P103 

Polynomial (10,3) term 

P104 

Polynomial (10,4) term 

P105 

Polynomial (10,5) term 

P106 

Polynomial (10,6) term 

P107 

Polynomial (10,7) term 

P108 

Polynomial (10,8) term 

P109 

Polynomial (10,9) term 

Pill 

Polynomial (11,1) term 

PI 1-10 

Polynomial (11,10) term 

Pllll 

Polynomial (11,11) term 

P112 

Polynomial (1 1 ,2 term 

P113 

Polynomial (11,3 term 

PI 14 

Polynomial (11,4) term 

P115 

Polynomial (11,5) term 

P116 

Polynomial (1 1,6) term 

P117 

Polynomial (11,7) term 

P118 

Polynomial (1 1,8) term 

P119 

Polynomial (11,9) term 

P21 

Polynomial (2,1) term 

P22 

Polynomial (2,2) term 

P31 

Polynomial (3,1) term 

P32 

Polynomial (3,2) term 

P33 

Polynomial (3,3) term 

P41 

Polynomial (4,1) term 

P42 

Polynomial (4,2) term 

P43 

Polynomial (4,3) term 

P44 

Polynomial (4,4) term 

P51 

Polynomial (5,1) term 

P52 

Polynomial (5,2) term 

P53 

Polynomial (5,3) term 

P54 

Polynomial (5,4) term 

P55 

Polynomial (5,5) term 

P61 

Polynomial (6,1) term 

P62 

Polynomial (6,2) term 

P63 

Polynomial (6,3) term 

P64 

Polynomial (6,4) term 

P65 

Polynomial (6,5) term 
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P66 

Polynomial (6,6) term 

P71 

Polynomial (7,1) term 

P72 

Polynomial (7,2) term 

P73 

Polynomial (7,3) term 

P74 

Polynomial (7,4) term 

P75 

Polynomial (7,5) term 

P76 

Polynomial (7,6) term 

P77 

Polynomial (7,7) term 

P81 

Polynomial (8,1) term 

P82 

Polynomial (8,2) term 

P83 

Polynomial (8,3) term 

P84 

Polynomial (8,4) term 

P85 

Polynomial (8,5) term 

P86 

Polynomial (8,6) term 

P87 

Polynomial (8,7) term 

P88 

Polynomial (8,8) term 

P91 

Polynomial (9,1) term 

P92 

Polynomial (9,2) term 

P93 

Polynomial (9,3) term 

P94 

Polynomial (9,4) term 

P95 

Polynomial (9,5) term 

P96 

Polynomial (9,6) term 

P97 

Polynomial (9,7) term 

P98 

Polynomial (9,8) term 

P99 

Polynomial (9,9) term 


RCIO 

RCll 

RC2 

RC3 

RC4 

RC5 

RC6 

RC7 

RC8 

RC9 


Intermediate value (N=10) in magnetic field expansion 
Intermediate value (N=l 1) in magnetic field expansion 
Intermediate value (N=2) in magnetic field expansion 
Intermediate value (N=3) in magnetic field expansion 
Intermediate value (N=4) in magnetic field expansion 
Intermediate value (N=5) in magnetic field expansion 
Intermediate value (N=6) in magnetic field expansion 
Intermediate value (N=7) in magnetic field expansion 
Intermediate value (N=8) in magnetic field expansion 
Intermediate value (N=9) in magnetic field expansion 


TCP 10 

TCPll 

TCP2 

TCP3 

TCP4 

TCP5 

TCP6 

TCP7 

TCP8 

TCP9 

TCY2 

TCY3 


Trigonometric cosine function for the PIO term 
Trigonometric cosine function for the PI 1 term 
Trigonometric cosine function for the P2 term 
Trigonometric cosine function for the P3 term 
Trigonometric cosine function for the P4 term 
Trigonometric cosine function for the P5 term 
Trigonometric cosine function for the P6 term 
Trigonometric cosine function for the P7 term 
Trigonometric cosine function for the P8 term 
Trigonometric cosine function for the P9 term 
Trigonometric cosine of the vector theta angle in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 6, ([> coordinates 
[in COMMON /SNGLR/] 


Reference publication: 


=h radii per second (not used in this subroutine) 
AVRKVLU/] 


of the Main GcomaencUc Fieldg ^o" ” r, 0, * coordinates) 

NSSDC 68-11, February 1968, NSDC, NASA, /WRKVLU J 


3 r Spherical Harmonic Expansion, Data Users N( 
GFSC, Greenbelt MD. 
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TSPIO 

TSPll 

TSP2 

TSP3 

TSP4 

TSP5 

TSP6 

TSP7 

TSP8 

TSP9 

TSY2 

TSY3 


VEL 


Y(6) 


igonometric sine funt 
igonometric sine funi 
igonometric sine fun?*^°8'^ Description 

igonometric sine film 
igonometric sine fum 
igonometric sine fun< , „ 

igonometric sine fanrSo” ^ 

igonometric sine fim;“” f” J" 

igonometric sine fun?«»” term 

iionometric sine fnn="»" ^ 1 ] '"f 

*_; ■ ration for the P4 term 

ngonometnc sine ot r 

r- /-riivynkttriM-tion for the P5 term 
[mCOMMON 

ngonomemc sme of t p, 

. , , ■ ction for the P9 term 

article velocity in eair 

[in 

/SNCjLK/J 


, 0, <f) coordinates 


ray of "Y" values in r. 0, <|> coordinates 
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DESCRIPTION OF PROGRAM TJI95T 


This software package is self-contained and capable of being compiled and executed on a variety of 
platforms ranging from a personal computer to large scale "super computers". The software is wntten in 
FORTRAN 77. The software is designed to efficiently compute the trajectory of an energetic charged 
particle of a specified momentum per unit charge (rigidity) through a model magnetic field. For cosmic 
ray access to the earth, the geocenter becomes the origin of the coordinate system. All calculations are 
done in the r, 0, (j) coordinate system (a right-handed, orthogonal coordinate system). The magnetic field 
subroutine included in this software is designed for efficient evaluation of the IGRF95 model of the 
earth's magnetic field. 

In its usual mode of computing the path of cosmic ray trajectories in a model of the earth's m^etic 
field, we utilize this program to determine the path of a cosmic ray (a positively charged particle) from 
interplanetary space arriving at the earth at a specified position and direction. To accomplish this, a 
negatively charged particle is 'launched' from the 'top' of the atmosphere at a specified position (latitude 
and longitude) in a specific direction (zenith and azimuth), and its path traced though the model magnetic 
field until it either (1) reaches a specified radial distance, (2) reenters the atmosphere, or (3) fails to reach 
either condition by a specified number of iterative steps. If the negative test particle path penetrates the 
specified outer boundary (reaches interplanetary space) the direction of the particle velocity vector at the 
boundary crossing is specified as asymptotic latitude and longitude (in corresponding geocentric 
coordinates). If the charged particle re-enters the atmosphere, then the re-entrant coordinates (geocentnc 
latitude and longitude) are given. In this version of the software, an oxygen nuclei ( O) is used as the test 
particle. Since rigidity is a canonical coordinate, the path of any charged particle having the specified 
rigidity will be the same. 

The software can be adapted to trace the path of any particle of a specified rigidity from a specified 
position and direction through any model magnetic field as long as the magnetic field is expressed as 
vectors in the r, 0, <j) coordinate system. 

The 'input' to this program is a data line that specifies the initial position (latitude, longitude 
and altitude above the earth's surface), direction (azimuth and zenith), and rigidity 
(momentum per unit charge) along with control parameters to do 'N' trajectory 
calculations at specified rigidity increments beginning at an initial specified rigidity. 

The 'output' of the software is in summary files with one line for each trajectory calculation. 

The traditional summary output is called TAPE7 and is in an 80-column card image 
format. This contains the initial conditions (the geodetic latitude, longitude, rigidity, 
zenith, and azimuth), the final results (asymptotic latitude and longitude), fate of the 
trajectory, the number of steps in the trajectory calculation, plus a magnetic field 
identifier. 

There is also a second output summary, traditionally called TAPES, whkh is in a line 
printer 1 32 column format. This contains more detail; the initial conditions (the geodetic 
and geocentric latitude, the longitude, rigidity, zenith, and azimuth), the final results 
(asymptotic latitude and longitude, path length (in earth radii), trajectory transit time, 
time at altitudes under 100 km, number of maximum and minimum in radial distance 
along the trajectory, the trajectory fate, the number of steps in the calculation, plus a 
magnetic field identifier. 
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This structured FORTRAN 77 software assembly consists of a main program and four associated 
subroutines. The software has extensive internal comments to aid the user in understanding the program. 
The program and subroutines are: 


Program 

Subroutine 

Subroutine 

Subroutine 

Subroutine 


TJI95T 

GDGC 

SINGLTJ 

FGRAD 

MAGNEW95 


Main program; primary purpose is control 
Conversion from geodetic to geocentric coordinates 
Calculates a particle trajectory 
Evaluates the V X B force vectors on the particle 
Evaluates the vector magnetic field at position r, 0, (j) 


Program Organization: 

Each subroutine has a separate unique function. Critical and often used variables are de^ed in 
labeled common blocks. The important "working" variables are in the common block WRKVLU. 1 he 
trigonometric sines and cosines are in common block WRKTSC. Definitions associated with the shape of 
the ellipsoid representing the surface of the earth are in common block GEOID. We have found that 
some "super computers" do not allow mixing of real and integer variables in the same cordon bloc , . 
therefore the are two additional common blocks associated with subroutine SINGLTJ. ese are 
common block SNGLR (real variables) and common block SNGLI (integer vanables) 


Accuracy and Precision 

It is recommended that the REAL* 8 precision always be used. The primary limitation affecting the 
results is the accuracy of the magnetic field expansion. For reasonably simple trajectones the results 
should be repeatable, independent of the computer platform used. For long complex trajectories, defau 
compiler options (round off or truncate, and the precision of intrinsic function) begin to affect the result. 
The calculation procedure includes automatic error checking. The particle acceleration terms are 
monitored in subroutine SINGLTJ. When significant increases in the force on the particle arenoted the^ 
step size is reduced and the calculations are continued at smaller step intervals. The quantity BETA ([3 
v/c) should be invariant throughout the calculation and is monitored. Changes of BETA exceeding 1 pa 
in 10^ results in an automatic restart and the trajectory is recalculated at smaller step size increments. 

On some "main fames" the intrinsic functions are automatically derived in REAL* 8 precision; on 
some other systems the intrinsic functions are evaluated in a REAL*4 mode unless the double precision 
argument is specified. In this version intended for the Desktop Computer, all intnnsic functions are 
specified in the double precision mode; however, we have left a single precision statement ^ommen e 
out" immediately before each double precision statement. For simple trajectones the user probably 
cannot note any difference; however, for long complex trajectones, the differences between the use of 
single precision intrinsic functions and double precision intrinsic functions will become apparent. It a 
specific rigidity and direction is used for comparison and the position of each trajectory step is monitored, 
the effect of the small differences between REAL*4 and REAL*8 accumulate and eventually the 
trajectory path will differ is it is a long complex trajectory. 

In the interest of computational speed, the magnetic field calculation routine drops the evaluation of 
the high order terms when they make an "insignificant" contribution to the total magnetic field. Again tor 
long complex trajectories, these small differences accumulate and the trajectory paths may diverge when 
different criteria are used for dropping magnetic field expansion. 
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User Defined Parameters: 

Two variables are intended to be user defined. These are FSTEP and LIMIT. Default values have 

been set in the program, LIMIT = 600,000, and FSTEP = 4 X 10^ 

LIMIT is the number of Runge-Kutta steps allowed before a trajectory is declared failed. 

FSTEP is the total number of Runge-Kutta steps allowed before the run is tenninated. 

Simple high rigidity trajectories often require only several hundred steps. Simple trajectories above the 
upper cutoff rigidity often can be completed in a few thousand steps. Most cosmic ray trajectories will 
complete in about 10,000 steps. Some quasi-trapped periodic orbits may require more than 100,000 steps. 
Trapped orbits require an infinite number of steps. Very low rigidity trajectories initiated at high polar 
latitudes will exhibit the quasi-trapped behavior and probably fail to reach a solution. (The step size 
criteria is based on the time to travel about one percent of a gyro-distance. Therefore trajectories with 
many loops require many steps to complete.) 

Assuming the user wants to operate in a "batch mode" some job control parameters are needed. This 
is the quantity FSTEP. Some estimate of the computer speed is necessary. For desktop personal 
computers this can range from a few hundred steps per second on old obsolete 486 chips to the order of 
50,000 steps per second obtainable with current Pentium® III chips operating at approximately 1 GHz 
clock cycle time. We have found a very significant difference in the program computational speed on the 
same computer that can be attributed to the efficiency of the object code generated by the compiler. In 
our testing on desktop platforms we have found that the executable code generated by the COMPAQ® 
Visual Fortran operates efficiently on a Microsoft® Windows operating system. The worst performing 
executable code (derived from an old, no longer sold system) ran about five times slower on the same test 
set of trajectory calculation. It is assumed that workstations will have trajectory computational speeds of 
the order or at least 10,000 steps per second. The default FSTEP setting will allow a batch run of the 
order of 10 hours if the program executes at 10,000 Runge-Kutta steps per second. 


Proeram Operation 

This program operates in the r, 0, cp coordinate system. The variables Y(l), Y(2), and Y(3) are the 
position vectors in the r, 0, (p coordinate system and the variables Y(4), Y(5), and Y(6) are the velocity 
vectors. 

The program initially defines the physical constants used in the calculation and control parameters. 
In this version it uses system calls to get the date and time for the start of the run. It then enters a control 
loop beginning with reading a data line to determine the initial position and direction, the specified 
starting rigidity and how many trajectories to calculate at specified increments. 

For each control line read, a call to subroutine GDGC converts the initial geodetic coordinates (map 
makers coordinates on the earth's surface) to geocentric r, 0, (j) coordinates. Then the trajectory 

calculations are done by subroutine SINGLTJ ■ ^ -i 

The control loop continues (read in control line, convert coordinates, do trajectory calculations) until 
a negative (or zero) value of rigidity is read in. When this occurs, the system calls to get the date and 
time for the end of the run, and exits. 


Labeled Common arguments: 

Block name; AVRKVLU/ 

Arguments in block F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
F(6) Array of force and acceleration vectors 


Final Report Grant NAG5-8009, Section II, Part2, TJI95T Program Description 


43 


Y(6) 

ERAD 

EOMC 

VEL 

BP 

BR 

BT 


Array of position and velocity vectors 

Average radius of the earth in kilometers • j • \ 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 

Particle velocity in earth radii per second 

Value of the B((t>) magnetic field vector (in units of Gauss) 

Value of the B(r) magnetic field vector (in units of Gauss) 

Value of the B(0) magnetic field vector (in units of Gauss) 


Block name: 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


/WRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Block name: 
Arguments in block 
PI 

RAD 

PI02 


/TRIG/ 

PI, RAD, PI02 
Value of pi 

Value of degrees in a radian 
Value of pi/2.0 


‘ Block name: 

Arguments in block 


ERADPL 

ERECSQ 


/GEOID/ 

ERADPL, ERECSQ 

Polar radius of the earth in kilometers 

Eccentricity of ellipsoid squared 


Block name: 
Arguments in block 

SALT 

DISOUT 

GCLATD 

GDLATD 

GLOND 

GDAZD 

GDZED 

RYl 

RY2 

RY3 

RHT 

TSTEP 


SALT, DISOUT, GCLATD, GDLATD, GLOND, GDAZD, GDZED, 

RYl , RY2, RY3, RHT, TSTEP 

Start altitude of traj ectory above surface of geoid 

Radial distance (in earth radii) for termination of calculation 

Geocentric latitude in degree 

Geodetic latitude in degrees 

East longitude in degrees 

Geodetic azimuth in degrees 

Geodetic zenith in degrees 

Original start position Y(l), (radial component in the r, 0, (p coordinate system) 
Original start position Y(2), (theta component in the r, 0, <p coordinate system) 
Original start position Y(3), (phi component in the r, 0, (p coordinate system) 
Height above geoid where trajectory re-enters the atmosphere 
Total number of steps in this run. 


Block name: 
Arguments in block 
LIMIT 
NTRAJC 
lERRPT 


/SNGLI/ 

LIMIT, NTRAJC, lERRPT 

Maximum number of steps before 'failed trajectory 
Number of trajectories calculated in this run 
Integer control for printing diagnostics (normally = 0) 
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Subroutines called: 

GCGC (TCD, TSD) 

TCD Cosine of the rotation angle 

TSD Sine of the rotation angle 


SINGLTJ (PC, IRSLT, 
PC 

IRSLT 

INDXPC 

YIGC 

Y2GC 

Y3GC 


INDXPC, YIGC, Y2GC, Y3GC) 

Particle rigidity (in units of GV) 

Integer result of trajectory calculation 

(+1 = Allowed, 0 = Failed, -1 = Re-entrant) 
Integer value of PC in units of MV 
Y(l) position in geocentric coordinates 
Y(2) position in geocentric coordinates 
Y(3) position in geocentric coordinates 


Dimensioned variables: all in labeled common 

F(6) Array of force and acceleration vectors 

Y(6) Array of position and velocity vectors 


Data files: none 


Output files: 

TAPE? from subroutine SINGTJ (80 character summary) 

TAPES from subroutine SINGTJ (132 character line printer summary) 
TAPE 16 (diagnostic output; if desired, set lERRPT to > 0) 


T.isting of all variables in program TJI95T 


B 

BP 

BR 

BT 


Magnitude of the magnetic field (in Gauss) [in COMMON AVRKVLU/] 

Value of the magnetic field vector (in Gauss) [in COMMON 

Value of the B(r) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 

Value of the B(6) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 


CF 

DELPC 

DISOUT 

ERAD 

ERADPL 

ERECSQ 

F(6) 


GCLATD 

GDAZ 

GDAZD 


Character variable "F" 


icrements of rigidity spacing search in control line 

istance (in earth radii) for trajectory termination [m COMMON /SNGLK/J 


Average radius of the earth in kilometers [in COMMOM AVRKVLU/] 
Polar radius of the earth in km [in COMMON /GEOID/] 

Eccentricity of ellipsoid squared [in COMMON /GEOID/] 


Array of "F" values (velocity and acceleration in program coordinates) 

[in COMMON /WRKVLU/] 

Geocentric latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic azimuth in radians (measured clockwise from north) 

Geodetic azimuth in degrees (measured clockwise from north) 
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GDLATD 

GDZE 

GDZED 

GLOND 


IDELPC 

lERRPT 

INDEX 

INDO 

INDXPC 

lOSTAT 

IRSLT 

ISALT 


Geodetic latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic zenith in radians (0 = vertical) 

Geodetic zenith in degrees (0 = vertical) 

Geodetic East longitude in degrees (from Greenwich meridian) 

[in COMMON /SNGLR/] 

Integer value of rigidity change increment in MV (attempt to avoid round off) 
Integer control for printing diagnostics (normally set to 0) 

Arbitrary index number of input control line (optional) 

Integer control of number of trajectories to calculate 

Integer value of rigidity in MV increments (attempt to avoid round off) 

Integer system argument of status of read 

Internal result of particle trajectory (+1 = allowed, 0 = failed, -1 - re-entrant) 
Integer value of start altitude (in km) above geoid surface 


LIMIT 

LSTEP 


Limit of number of steps before trajectory is declared Failed 

Number of times step size control has been reduced to overcome trajectory error 


NDO 

NTRAJC 


Integer control read in (number of trajectories to compute from this control line) 
Number of trajectories in this computer run 


PC 

PI 

PI02 

RAD 

RHT 

RYl 

RY2 

RY3 


SALT 


TCD 

TCGDAZ 

TCGDZE 

TCY2 

TCY3 

TSTEP 

TSY2 

TSY3 


Rigidity of particle (in units of GV) 

Real value of the quantity Pi (-3.1415926535) [in COMMON /TRIG/] 
Real value of Pi divided by 2.0 [in COMMON /TRIG/] 


Real value of one radian (-57.29578 degrees) [in COMMON /TRIG/] 

Height above geoid where a trajectory re-entered the atmosphere 
Real value of the starting position of the r coordinate in r, 0, coordinates 
[in COMMON /SNGLR/]] 

Real value of the starting position of the theta coordinate in r, 0, ([) coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the phi coordinate in r, 0, ^ coordinates 
[in COMMON /SNGLR/] 


Real value of the starting altitude above the surface of the geoid 
[in COMMON /SNGLR/] 

Trigonometric cosine of the rotation angle from geodetic to geocentric 
Trigonometric cosine of the geodetic azimuth „ n 

(Measured clockwise from north) [in COMMON /SNGLR/] 

Trigonometric cosine of the geodetic zenith (measured clockwise from north) 
Trigonometric cosine of the vector theta angle in r, 0, ^ coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 0, ([> coordinates 
[in COMMON /SNGLR/] 

Number steps executed in this run 

Trigonometric sine of the vector theta (0) angle in r, 0, <[) coordinates 
[in COMMON /SNGLR/] 

Value of the trigonometric sine of the vector phi (<j>) angle in r, 0, ([) coordinates 
[in COMMON /SNGLR/] 
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VEL 


Particle velocity in earth radii per second [in COMMON AVRKVLU/] 


Y(6) 

YIGC 

YIGD 

Y2GC 

Y2GD 

Y3GC 

Y3GD 


Array of "Y" values (position and velocity in r, 0, (|) coordinates) 
[in COMMON AVRKVLU/] 

Starting position r component in geocentric coordinates 
Starting position r component in geodetic coordinates 
Starting position 0 component in geocentric coordinates 
Starting position 0 component in geodetic coordinates 
Starting position ([) component in geocentric coordinates 
Starting position (|) component in geodetic coordinates 
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Subroutine GDGC (TCD, TSD) 

This subroutine calculates the angle between geodetic and geocentric coordinates. The arguments 
TCD and TSD are the trigonometric cosine and sine of the rotation angle from a normal from the surface 
of the geoid (geodetic coordinates) and a radial from the center of the earth (geocentric coordinates). See 
Appendix B of NSSDC 72-12) 


Arguments in call statement 

TCD Cosine of the rotation angle 
TSD Sine of the rotation angle 


Labeled Common arguments: 

Block name; AVRKVLU/ 

Arguments in block F(b), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
F(6) Array of force and acceleration vectors 

Y(6) Array of position and velocity vectors 

ERAD Average radius of the earth in kilometers 

EOMC Electronic charge divided by relativistic mass energy equivalent (mixed units) 

VEL Particle velocity in earth radii per second 

BP Value of the B((j)) magnetic field vector (in units of Gauss) 

BR Value of the B(r) magnetic field vector (in units of Gauss) 

BT Value of the B(9) magnetic field vector (in units of Gauss) 


Block name: 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


AVRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Block name: 
Arguments in block 
PI 

RAD 

PI02 


/TRIG/ 

PI, RAD, PI02 
Value of pi 

Value of degrees in a radian 
Value of pi/2.0 


Block name: 


Arguments in block 
ERADPL 
ERECSQ 


/GEOID/ 

ERADPL, ERECSQ 

Polar radius of the earth in kilometers 

Eccentricity of ellipsoid squared 


Block name: 
Arguments in block 

SALT 

DISOUT 

GCLATD 

GDLATD 

GLOND 


/SNGLR/ 

SALT, DISOUT, GCLATD, GDLATD, GLOND, GDAZD, GDZED, 

RY 1 , RY2, RY3 , RHT, TSTEP 

Start altitude of trajectory above surface of geoid 

Radial distance (in earth radii) for termination of calculation 

Geocentric latitude in degrees 

Geodetic latitude in degrees 

East longitude in degrees 
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GDAZD 

GDZED 

RYl 

RY2 

RY3 

RHT 

TSTEP 


Geodetic azimuth in degrees 
Geodetic zenith in degrees 
Original start position Y(l) 

Original start position Y(2) 

Original start position Y(3) 

Height above geoid where trajectory re-enters the atmosphere 
Total number of steps in this run. 


Block name; 
Arguments in block 
LIMIT 
NTRAJC 
lERRPT 


/SNGLI/ 

LIMIT, NTRAJC, lERRPT 

Maximum number of steps before 'failed' trajectory 
Number of trajectories calculated in this run 
Integer control for printing diagnostics (normally = 0) 


Dimensioned variables : 
F(6) 

Y(6) 


all in labeled common 

Array of force and acceleration vectors 

Array of position and velocity vectors 


Subroutines called: none 


Data files: none 


Output files : none 


Operation : 

The shape of the earth used is not a sphere, but an ellipsoid having a specked polar radius 
equatorial radius, and eccentricity. When this subroutine is called, it defines the shape of an oblate earth 
from the polar and equatorial radius, and calculates vectors from a normal on the surface of the ellipsoid 
to the specified position in geodetic coordinates, at the specified latitude, ^d determines the vector 
rotation angle between geodetic coordinates and geocentric coordinates. The sine and cosine of this 
rotation angle are passed to the calling program. Geodetic latitude is a measure 
system normal to the surface of the earth. At a position on or above the surface of the ellipsoid, there 
slight difference between a direction normal to the surface of the ellipsoid and a direc ^ ^ 

geLentric. This difference is latitude dependent. (It is zero at the equator or poles and can be as large as 
approximately 1/2 of a degree at mid latitudes.) The vector rotation angle allows for direction 
spLification in both geodetic (map) coordinates and geocentric coordinates. This small correction for the 
dfrection may be insignificant for some applications, but may be significant for precision calculation m a 
Specific direction at high rigidities. 


Data checking : none. The data to describe the shape of the earth are included in the subroutine. 


listing of all variables used in subroutine GDGC of program TJI95T AxnjifVT TT/1 

R Magnitude of the magnetic field (in Gauss) [in COMMON /WRKVLU/] 

3 P Value of the magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 
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BR 

BT 

DISOUT 

DISTKM 

EOMC 

ERAD 

ERADPL 

ERECSQ 

ERPLSQ 

F(6) 


GCLATD 

GDAZD 

GDCLT 

GDLATD 

GDZED 

GLOND 


ONE 

PI 

PI02 

RAD 

RHO 

RHT 

RYl 

RY2 

RY3 


SALT 


TCD 

TCGDCLT 

TCY2 

TCY3 

THREE 


Value of the B(r) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 
Value of the B(0) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 

Distance (in earth radii) for trajectory termination [in COMMON /SNGLR/] 
Starting position geocentric radial distance from geocenter 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 
[in COMMON /WRKVLU/] 

Average radius of the earth in kilometers [in COMMOM /WRKVLU/] 

Polar radius of the earth in km [in COMMON /GEOID/] 

Eccentricity of ellipsoid squared [in COMMON /GEOID/] 

Polar radius of earth (in km) squared 


Array of "F" values (velocity and acceleration in program coordinates) 

[in COMMON /WRKVLU/] 

Geocentric latitude in degrees (+ = north, south = -) [in COMMON /SNGLIU] 
Geodetic azimuth in degrees (measured clockwise from north) 

Geodetic co-latitude (in radians) 

Geodetic latitude in degrees (+ = north, south = -) [m COMMON /SNGLR/] 
Geodetic zenith in degrees (0 = vertical) 

Geodetic East longitude in degrees (from Greenwich mendian) 

[in COMMON /SNGLR/] 

Intermediate term in computations (see NSSDC ALLMAG description) 


Real value of the quantity Pi (-3.1415926535) [in COMMON /TRIG/] 
Real value of Pi divided by 2.0 [in COMMON /TRIG/] 


Real value of one radian (-57.29578 degrees) [in COMMON AKIG/] 
Intermediate term in computations (see NSSDC ALLMAG descnption) 

Height above geoid where a trajectory is declared re-entrant 
[in COMMON /SNGLR/] 

Real value of the starting position of the r coordinate in r, 0, <|) coordinates 
[in COMMON /SNGLR/] 

PpqI value of the starting position of the theta coordinate in r, 0, (j) coor ina es 


[in COMMON /SNGLR/] . 

Real value of the starting position of the phi coordinate in r, 0, (]) coordinates 

[in COMMON /SNGLR/] 


Real value of the starting altitude above the surface of the geoid 
[in COMMON /SNGLR/] 

Trigonometric cosine of the rotation angle from geodetic to geocentric 

Trigonometric cosine of the geocentric co-latitude 

Trigonometric cosine of the vector theta angle in r, 0, <|) coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 0, ^ coordinates 
[in COMMON /SNGLR/] . . 

Intermediate term in computations (see NSSDC ALLMAG descnption) 
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TSD 

TSGDCLT 

TSTEP 

TSY2 

TSY3 

TWO 

VEL 

Y(6) 


Trigonometric sine of the rotation angle from geodetic to geocentric 

Trigonometric sine of the geocentric co-latitude 

Number steps executed in this run 

Trigonometric sine of the vector theta (9) angle in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Trigonometric sine of the vector phi ((ji) angle in r, 0, <|) coordinates 
fin COMMON /SNGLR/] . . 

Intermediate term in computations (see NSSDC ALLMAG descnption) 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 

Array of "Y" values (position and velocity in r, 0, ^ coordinates) 

[in COMMON /WRKVLU/] 


Reference publication: 

AT T MAG. GCAZLMG, T. TNTRA: Commuter Programs For Geomagnetic Field And Field-^ 
Calculations. E.G. Stassinopulous and G.D. Mead, NSSDC 72-12, February 1972, NASA, GFSC, 
Greenbelt MD. 
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Subroutine SINGLTJ (PC, IRSLT, INDXPC, YIGC, Y2GC, Y3GC) 

This subroutine does the actual trajectory tracing. When called it initially defines control parameters 
and constants used in the particle tracing and initializes the Runge-Kutta variables to zero. It sets up the 
initial position and direction, and defines the relativistic parameters relating to the particle total energy 
and speed. 

In this version of the subroutine, an oxygen nuclei ('®0) is used as the test particle. By definition a 
nuclei has a mass of 1 6 Atomic Mass Units (AMU) and an atomic charge of 8. The mass-energy 
conversion for one AMU is 0.93 1 14 GeV. If it were desired to modify the program for some other nuclei, 
such as a proton that has an atomic charge of 1 and atomic mass of 1.0081415 AMU, then the rest mass 
energy for atomic nuclei must be adjusted. 

After the initial definitions, the subroutine then chooses an initial starting step length (a relatively 
small value) and starts the Runge-Kutta process of tracing the particle trajectory. After each step it goes 
though an error checking and detection process. If the checks are satisfactory, it determines the particle 

location with respect to the atmosphere and the outer boundary. 

If the charged particle is between the atmosphere and the outer boundary, it adjusts the size 
of the next step and continues the trajectory tracing until the LIMIT on the number of 
steps is reached. 

If the charged particle is entering the atmosphere, it terminates the calculation. 

If the charged particle is less than 100 km above the earth's surface, it maintains a running 
sum of the time at low altitudes. 

If the charged particle is approaching the outer boundary, it adjusts the step size so it 
penetrates this boundary at small step lengths. 

If the charged particle has penetrated the outer boundary at a small step, it computes the final 
coordinates. 

When the particle has reached a solution (allowed or re-entrant) or reached the step limit, it writes 
out the result and returns to the calling program. 


Arguments in call statement 
PC, IRSLT, INDXPC, 
PC 

IRSLT 

INDXPC 

YIGC 

Y2GC 

Y3GC 


YIGC, Y2GC, Y3GC 
Particle rigidity 

Integer result of trajectory (+1 = allowed, 0 = failed, -1 = re-entrant) 

Integer value of PC in MV units 

Y(l) position in geocentric coordinates 

Y(2) position in geocentric coordinates 

Y(3) position in geocentric coordinates 


Labeled Common arguments : 

Block name: AVRKVLU/ 

Arguments in block F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
F(6) Array of force and acceleration vectors 

Y(6) Array of position and velocity vectors 

ERAD Average radius of the earth in kilometers 

EOMC Electronic charge divided by relativistic mass energy equivalent (mixed units) 

VEL Particle velocity in earth radii per second 

BP Value of the B((j)) magnetic field vector (in units of Gauss) 

BR Value of the B(r) magnetic field vector (in units of Gauss) 
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BT 

Value of the B(0) magnetic field vector (in units of Gauss 

Block name: 

AVRKTSC/ 

Arguments in block 

TSY2, TCY2, TSY3, TCY3 

TSY2 

Sine of the Y(2) coordinate (theta coordinate) 

TCY2 

Cosine of the Y(2) coordinate (theta coordinate) 

TSY3 

Sine of the Y(3) coordinate (phi coordinate) 

TCY3 

Cosine of the Y(3) coordinate (phi coordinate) 

Block name: 

/TRIG/ 

Arguments in block 

PI, RAD, PI02 

PI 

Value of pi 

RAD 

Value of degrees in a radian 

PI02 

Value of pi/2.0 

Block name: 

/GEOID/ 

Arguments in block 

ERADPL, ERECSQ 

ERADPL 

polar radius of the earth in kilometers 

ERECSQ 

Eccentricity of ellipsoid squared 

Block name: 

/SNGLR/ 

Arguments in block 

SALT, DISOUT, GCLATD, GDLATD, GLOND, GDAZD, GDZED, 
RYl, RY2, RY3, RHT, TSTEP 

SALT 

Start altitude of trajectory above surface of geoid 

DISOUT 

Radial distance (in earth radii) for termination of calculation 

GCLATD 

Geocentric latitude in degrees 

GDLATD 

Geodetic latitude in degrees 

GLOND 

East longitude in degrees 

GDAZD 

Geodetic azimuth in degrees 

GDZED 

Geodetic zenith in degrees 

RYl 

Original start position Y(l), (radial component in the r, 0, (p coordinate system) 

RY2 

Original start position Y(2) , (theta component in the r, 0, cp coordinate system) 

RY3 

Original start position Y(3) , (phi component in the r, 0, (p coordinate system) 

RHT 

Height above geoid where trajectory re-enters the atmosphere 

TSTEP 

Total number of steps in this run. 

Block name: 

/SNGLI/ 

Arguments in block 

LIMIT, NTRAJC, lERRPT 

LIMIT 

Maximum number of steps before 'failed' trajectory 

NTRAJC 

Number of trajectories calculated in this run 

lERRPT 

Integer control for printing diagnostics (normally = 0) 

Dimension variables: (not in labeled common) 

P(6), Q(6), R(6), S(6), YB(6), FOLD(6), YOLD(6) 

P(6) 

Runge-Kutta variable 

Q(6) 

Runge-Kutta variable 

R(6) 

Runge-Kutta variable 

S(6) 

Runge-Kutta variable 

YB(6) 

Runge-Kutta variable 

FOLD(6) 

"F" vectors of previous step 

YOLD(6) 

"Y" vectors of previous step 
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Subroutines called: FGRAD 


Data files: none 


Output files : 

TAPE? (80 character summary) 

TAPES (132 character line printer summary) 

TAPE 16 (diagnostic output; if desired set lERRPT to > 0) 


Program Operation : 

This program operates in the r, 0, cp coordinate system. The variables Y(l), Y(2), and Y(3) are the 
position vectors in the r, 0, cp coordinate system and the variables Y(4), Y(5), and Y(6) are the velocity 
vectors. 

When this subroutine is called, it initially defines control parameters and constants used in the 
particle path tracing, and initializes the Runge-Kutta variables to zero. It obtains the particle s height with 
respect to the surface of an oblate earth. It sets up the initial position vectors, Y(l), Y(2) and Y(3), and 
based on the particle rigidity, sets up velocity vectors, Y(4), Y(5), and Y(6). It then defines the 
relativistic parameters TENG (total energy), EOMC (charge per relativistic mass/energy equivalent), and 
GMA (the relativistic parameter of total energy over the rest mass energy). It defines scalar quantities 
relating to the particle, BETA (the particle speed with respect to light), PVEL (the particle speed in earth 
radii per second), and HMAX (a maximum step length allowed for this particle rigidity). 

Next it defines an initial starting step length (a relatively small value) and starts the Runge-Kutta 
process of tracing the particle trajectory. Comment cards specifically indicate the Runge-Kutta iteration 
process, which is the coding between FORTRAN statement numbers 130 and 170. The calls to 
subroutine FGRAD evaluate the V X B force on the particle during this step. The logic is very similar to 
that documented in Ralston and Wilf (1960). After each Runge-Kutta iteration step there is an extensive 
error checking and detection process. 

The error checking process begins with a check on the particle speed (BETA), which should remain 
invariant throughout the trajectory. If the difference between the initial particle speed (BETA) and it s 
current speed (RCKBETA) is greater than EDIF, then the trajectory tracing process is re-initialized 
(including the NSTEP variable) and the trajectory re-started at a smaller step size selection criteria. Up to 
five re-starts are allowed before the specific trajectory is declared impossible to calculate, evaluated as 
"failed", and the path length made negative in order to distinguish it from successful trajectones. In order 
to attempt to reach a solution the EDIF variable is widened by a factor of two after each successive 
trajectory failure. 

After the error check, then the acceleration of the particle is compared with previous values. We 
have found that computational errors are most likely to occur when there are rapid changes in the 
acceleration. If the average change in acceleration exceeds a factor of five, or if any component of the 
acceleration exceeds a factor of three, then the step length for the next Runge-Kutta step is reduced. 
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Along the particle path the software checks the particle location with respect to the atmosphere and 
the outer boundary. If the charged particle is less than 100 km above the earth's surface, it maintains a 
running sum of the time at low altitudes. If the charged particle is entering the atmosphere, it terminates 
the calculation. 

The next check determines if the particle has penetrated the outer termination boundary. The step 
length can be relatively large at extreme distances from the earth. If the outer boundary has been 
penetrated at a large step size, the trajectory is ’’backed up" and the step size reduced until it penetrates t e 
boundary at a small step size. This results in a more precise determination of the penetration location 
and can significantly affect the computed asymptotic direction. 

If there are no errors and the charged particle is between the atmosphere and the outer boundary, the 
software adjusts the size of the next step appropriate for the magnitude of the magnetic field (fre step size 
is normally about one percent of the gyro-distance) and continues the trajectory tracing. The basic step 
length algorithm is: 


H = ((2.0*71*33. 333*PC)/(B*p*C))/100.0 

where "H" is time in seconds, "PC" is the particle rigidity in GV, "B" is the magnitude of 
the magnetic field in Gauss and "C" is the speed of light in km/sec. 

(A handy formula to remember is the gyro-radius is 33 km per GV per Gauss) 

The software initially starts at a trajectory calculation at a small step size and the step size is permitted 
to grow at a maximum of about 20 percent each step. If the particle trajectory starts to loop to a lower 
altitude, then the step size is reduced to compensate for the increasing magnitude of the magnetic field. 
When a loop in the trajectory develops, the acceleration forces increase and step size adjustments are 
made in the case of a significant increase in the acceleration forces. 

During the trajectory tracing, the software notes the number of maximum and minima the trajectory 
experiences. This information is useful in ascertaining the complexity of the trajectory. 

When the particle has reached a solution (allowed or re-entrant) or reached the step limit, the 
subroutine will write out the result and return to the calling program. The fate is coded in the variab e 
IFATE: (0 = Allowed, 1 = Failed, 2 = Re-entrant, 3 = Failed, but max alt > 6.6 earth radii) 

If the trajectory is allowed (penetrates the outer boundary), then the velocity vectors are transformed 
into asymptotic latitude and longitude. Asymptotic latitude and longitude are the geocentric coordinates . 
the velocity vector would have at infinity. If the trajectory re-enters the atmosphere, then the position 
coordinates are transformed to geocentric latitude and longitude. 

The 'output' of the software is in summary files, on one line for each trajectory calculation. 

The output files are: 

TAPE? is in an 80-column "card image" format. This contains the initial conditions 
(the geodetic latitude, longitude, rigidity, zenith, and azimuth), the final results 
(asymptotic latitude and longitude, fate and number of steps), and a magnetic field 
identifier. 

TAPES is in a line printer 132-column format. This contains more detail; the initial 
conditions (the geodetic latitude and the geocentric latitude, the longitude, rigidity, 
zenith, and azimuth), the final results (asymptotic latitude and longitude, path length. 
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Final Report 


trajectory time, time at altitudes under 100 km, number of maximum and minimum in 
trajectory, fate, and number of steps), and a magnetic field identifier. 

TAPE16 is a diagnostic output, including a record of restarts due to BETA checks 

or trajectory failures. 

See the examples section for samples of the output. 


Possible Additions for Traie ctory Plotting 

If it is desired to plot a trajectory, the posibon vanables Y(l), Y(2), Md 
each Runge-Kutta step in a suitable array. The task of addmg such a mod.Hcahon should be 
straightforward and is left to the individual program user. 


T ,1 sting of all 


ACCER 

ACCOLD 

AFOLD 

AHLT 

ANUC 

ATRGl 

ATRG2 

AZD 

B 

BETA 

BETAST 

BP 

BR 

BT 

CF 

CNAME 

CR 

DELACC 

DISCK 

DISOUT 

DISTR 

EDIF 

EMCSQ 

EOMC 

ERAD 

ERADPL 

ERECSQ 

F(6) 


variables in subroutine SINGLTJ 

Magnitude of current value of the particle acceleration 
Magnitude of last value of the particle acceleration 
Absolute value of FOLD 
Variable to control step size at high latihide 

Atomic number ofnumberofnucleons in atom 

Intermediate value to compute asymptotic latitude (avoid 0/^0 problem) 
Intermediate value to compute asymptotic latitude (avoid WO pro em) 

Azimuth angle in degrees (measured clockwise from north) 

Magnitude of the magnetic field (in Gauss) [in COMMON AVRKVLU/] 

Particle speed as fraction of light speed (p = v/c where c is speed of lig ) 
Control variable for reducing step size if error /WRKVLU/1 

Value of the B((t>) magnetic field 
Value of the B(r) magnetic field vector (in Gauss) [in 

Value of the B(9) magnetic field vector (in Gauss) [in COMMON /WRKVLU/J 

Character variable "F” ij a 

Character variable (up to 6 characters) identifying magnetic field used 

Character variable "R" 

Change in particle acceleration from previous step 

Step length control variable to approach boundary at 

Distance (in earth radii) for trajectory termination [m COMMON ^SNOLI^ 
Radial distance (in earth radii) from current distance to termination boundary 

Variation in P allowed before error declared 

Mass energy equivalent for a AMU (0.931 141 GeV) / ■ j to'i 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 

[in COMMON AVRKVLU/] t t/t 

Average radius of the earth in kilometers [in COMMOM AVRKVLU/] 

Polar radius of the earth in km [in COMMON /GEOID/Q 
Eccentricity of ellipsoid squared [in COMMON /GEOID/] 

Array of "F" values (velocity and acceleration in program coordinates) 
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FOLD(6) 

FASLAT 

FASLON 

GCLATD 

GDAZD 

GDLATD 

GDZED 

GLOND 

GMA 

GRNDKM 

H 

HB 

HCK 

HCNG 

HMAX 

HOLD 

HSNEK 

HSTART 

I 

lAZ 

ICK 

lERRPT 

IFATE 

INDXPC 

IRT 

IRSLT 

ISALT 

IZE 

KBF 

limit 

LSTEP 

NMAX 

NMIN 

NSTEP 

NSTEPT 

NTRAJC 

P(6) 

PATH 

PC 

PI 

PI02 


Array of "F^ &oi> «=P 

eas. of .ho Greenwch meridian) 

Geocentric latitude in degrees (+ = north, so^h = -) [m /SNGL ] 

Geodetic azimuth in degrees (measured cloc ise /SNGLR7] 

Geodetic latitude in degrees (+ = north south - -) [m COMMUIn 

SoSc bngSta Agrees (from Greenwich meridian) 

[in COMMON /SNGLR/] 

Relativistic factor (total energy/rest ener^) 

Altitude above surface of earth at this latitu e (i ) 

Runge-Kutta step size (in seconds) ^ 

Preliminary value of step size for P - 1 
Control to limit step size growth to 20 /o 
Change of step size from previous step 
Maximum value of step size allowed 
Value of previous Runge-Kutta step size 

Control to approach 90% of distance to 
Starting step size value (deliberately ma 

Index for checking acceleration growth „ * 

Integer control for pnnting Y= Failed, 2 = Re-entrant 

Integer fate of particle trajectory ( ^ ^ ^ ^ ^ 

Index of particle rigidity in MV ^ * po^ed 0 = Failed, -1 = Re-entrant) 
Integer control for wnting results ( Allowed o = Failed, -1 = Re-entrant) 

Internal result of particle trajectory (+1 - Allowed, u ranc , 

Sr vX of surt altih.dc (in tan) above earth surface 
Integer value of zenith angle (m degrees) 

Number of failed attempts to trace this trajectory 

Number of maxima in complex trajectory paA 
Number of minima in complex trajectory path 

Som^SeXlTSh. printout f,rs. ,000 steps 
Number of trajectories in this computer run 

Array of intermediate values used in Runge-Kutta inte^^^ion 
Sdtance of trajectory path from start to termination 

Rigidity of particle i^r^nmtsoi 3 ^ v- COMMON /TRIG/] 

Real value of the quantity Pi ATOTr,/! 

Real value of Pi divided hy 2.0 [in COMMON fTRIG/) 
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PSALT 

PTCY2 

PVEL 

R(6) 

RIOOKM 

R120KM 

RAD 

RC106 

RCKBETA 

RENLAT 

RENLON 

REA 

RECK 

RHT 

RYl 

RY2 

RY3 


S(6) 

SALT 

SR2 

TAU 

TBETA 

TCY2 

TCY3 

TENG 

TMS202 

TPS202 

TSTEP 

TSY2 

TSY2SQ 

TSY3 

TUlOO 

VEL 


Current particle distance from ground (used for re-entrant calculations) 

Absolute value of cosine Y(2) (used in control of polar step size) 

Particle velocity (in earth radii per second) 

Array of intermediate values used in Runge-Kutta integration 

Y(l) distance of 100 km altitude at this latitude 

Y(l) distance of 120 km altitude at this latitude 

Real value of one radian (-57.29578 degrees) [in COMMON /TRIG/] 

Constant in Runge-Kutta integration (1. 0/6.0) 

Current value of particle p after this step 
Latitude of re-entrant particle intersection with atmosphere 
Longitude of re-entrant particle intersection with atmosphere 
Ratio of acceleration magnitude between current step and last step 
Ratio of acceleration component between current step and last step 
Height above geoid where a trajectory re-entered the atmosphere 
Real value of the starting position of the r coordinate in r, 0, (]) coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the theta coordinate in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the phi coordinate in r, 0, ([) coordinates 
[in COMMON /SNGLR/] 

Array of intermediate values used in Runge-Kutta integration 
Real value of the starting altitude above the surface of the geoid 
[in COMMON /SNGLR/] 

Runge-Kutta constant (square root of 2.0) 

Time (in seconds) for a trajectory transit from start to termination 
Difference between current value of p and starting value of P 
Trigonometric cosine of the vector theta (0) angle in r, 0, <|) coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi ((|)) angle in r, 0, (]) coordinates 
[in COMMON /SNGLR/] 

Total energy of particle (kinetic energy plus rest mass energy) 

Runge-Kutta constant (2.0 - SR2/2.0) 

Runge-Kutta constant ((2.0 + SR2/2.0) 

Number steps executed in this run 

Trigonometric sine of the vector theta (0) angle in r, 0, <j> coordinates 
[in COMMON /SNGLR/] 

Square of TSY2 

Value of the trigonometric sine of the vector phi ((])) angle in r, 0, (]) coordinates 
[in COMMON /SNGLR/] 

Time (in seconds) the particle is under 100 km altitude 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 


Y(6) 

YB(6) 

YIO 


Array of "Y" values (position and velocity in r, 0, ([» coordinates) 
[in COMMON /WRKVLU/] 

Array of intermediate values used in Runge-Kutta integration 
Y(l) radial coordinate for re-entrant distance at this latitude 
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YIGC 

Y2GC 

Y3GC 

YDA5 

YMAX 


Starting position r component in geocentric coordinates 
Starting position 0 component in geocentric coordinates 
Starting position (j) component in geocentric coordinates 
Intermediate value for computing asymptotic latitude 
Maximum radial distance attained by trajectory 


ZCHARGE Atomic charge number 

ZED Zenith angle in degrees 


Reference publication: 

Ralston, A, and Wilf, S H. .' Mathematical Models for Digi tal Computers, JohnWiley and Sons, New 
York, 1960. 
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Subroutine FGRAD 

This subroutine calculates the V X B force on the charged particle. 


Arguments in call statement : none. All in labeled common 


Labeled Common arguments : 


Block name; 

Arguments in block 
F(6) 

Y(6) 

ERAD 

EOMC 

VEL 

BP 

BR 

BT 


AVRKVLU/ 

F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
Array of force and acceleration vectors 
Array of position and velocity vectors 
Average radius of the earth in kilometers 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 

Particle velocity in earth radii per second 

Value of the B((()) magnetic field vector (in units of Gauss) 

Value of the B(r) magnetic field vector (in units of Gauss) 

Value of the B(0) magnetic field vector (in imits of Gauss) 


Block name: 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


AVRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Subroutines called : 

MAGNEW95 

(All arguments are in labeled common /WRKVLU/ and /WRKTSC/) 


Data files: none 


Output files : none 


Program Operation : 

When this subroutine is called, the force vectors, ((F(l), F(2), F(3)) are defined. The sine and cosine 
of the Y(2) coordinates are determined. The magnetic field vectors (BR, BT, BP) at the particle position 
(Y(l), Y(2), Y(3)) are obtained by the call to subroutine MAGNEW95. Then the acceleration vectors 
(F(4), F(5), F(6)) are calculated. 


Listing of all variables in subroutine FGRAD in program TJI95T 

B Magnitude of the magnetic field (in Gauss) [in COMMON AVRKVLU/] 

BP Value of the B((})) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 
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BR 

BT 

EOMC 

ERAD 

F(6) 

SQY6 

TAY2 

TCY2 

TCY3 

TSY2 

TSY3 

VEL 

Y(6) 

Y50Y1 


Value of the B(r) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 

Value of the B(0) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 
[in COMMON /WRKVLU/] 

Average radius of the earth in kilometers [in COMMOM /WRKVLU/] 

Array of "F" values (velocity and acceleration in program coordinates) 

[in COMMON /WRKVLU/] 

Intermediate term (Y6)*Y(6)/Y(1) 

Intermediate term TSY2/TSC2 

Trigonometric cosine of the vector theta angle in r, 0, ^ coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 0, (|> coordinates 
[in COMMON /SNGLR/] 

Trigonometric sine of the vector theta (0) angle in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Trigonometric sine of the vector phi ((])) angle in r, 0, <|) coordinates 
[in COMMON /SNGLR/] 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 

Array of "Y" values (position and velocity in r, 6, (|) coordinates) 

[in COMMON /WRKVLU/] 

Intermediate term Y(5)/Y(l) 
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Subroutine MAGNEW95 

This is the magnetic field evaluation program containing the IGRF95 magnetic field model, m 
normalized magnetic field coefficients have been pre-processed and loaded in 

a serial computation designed to repeatedly evaluate the same magnetic field model at different positio 
in space at optimum efficiency. Each term of the magnetic field expansion is the denvative of the 

pervious term. 


Arguments in call statement : none. (All in labeled common) 


T.abeled Common arguments : 

Block name: AVRKVLU/ 

Arguments in block 
F(6) 


Y(6) 

ERAD 

EOMC 

VEL 

BP 

BR 

BT 


F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
Array offeree and acceleration vectors 
Array of position and velocity vectors 
Average radius of the earth in kilometers 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 

Particle velocity in earth radii per second 

Value of the B((t)) magnetic field vector (in units of Gauss) 

Value of the B(r) magnetic field vector (in units of Gauss) 

Value of the B(6) magnetic field vector (in units of Gauss) 


Block name: 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


/WRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Dimensioned variables: (not in labeled common) 

G(11,11),BM(11) 

nn 1 1 n Normalized coefficients ordered for fast serial computation 

1 1 ) Values to determine if the expansion should terminated at order N 


Program Operation : 

This subroutine is designed for efficient serial computation of the 
nrocedure expands the terms into FORTRAN coding (resulting in pages and pages FORTRAN code 
Ld then evaluates the normalized field coefficients. The result of this senal expansion is approximately 
an OT^r of magnitude speed increase over the recursion method which is much more compact m program 
sL but expmsion of the Legender polynomials each time the subroutine is called. 

When this subroutine is called it checks the value of the variable 
it loads in the data coefficients; otherwise it proceeds directly to the magnetic field evaluati . y 

Gmi n pre-processed and normalized magnetic field model coefficients ordered for fast 

Sal clmp2tan We amy BM(1 1) — s a set of values ,ha, detennine .f expansion should be 
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terminated above a specified order because the additional contribution of the magnetic field would not be 
significant. (This is an additional technique to speed up the computation.) 

At the beginning of the magnetic field determination, the sine and cosine of Y(3) (the phi coordinate) 
are calculated. (This has not been done since the completion of the last Runge-Kutta step.) It then 
determines the value of the AR variable; AR is reciprocal of the radial distance, (Y(l)) ,in earth radii. 
Each order of the field expansion requires an evaluation of AR^ where N is the order of the field 
expansion. (The N = 1 term, a description of a monopole magnetic field, is zero.) The first magnetic 
field evaluation designated by N = 2 is the dipole field component. Each subsequent order of expansion 
evaluates the contribution of the next order and adds this to the contribution of the previous orders. The 
final computation converts the magnetic field vectors to units of Gauss. ( One Gauss - 10 Nt). A more 
detailed description of the process is given in NSSDC DATA USERS NOTE 68-11. 


Listing of all variables in subroutine MAGNEW95 , 

Temporary value of radial distance (in earth radii) to the N power 

1.0/Radial distance (in earth radii) [AR= 1.0/Y(1)] 

Magnitude of the magnetic field (in Gauss) [in COMMON /WRKVLU/] 
Variable for dropping terms if field magnitude is less than significant value 
(set to 0.001 for improved accuracy) 

Array of check values for dropping terms of magnetic field expansion 
Value of the B((|)) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 
Value of the B(r) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 
Value of the B(0) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 

Derivative of the polynomial (10,1) term 
Derivative of the polynomial (10,2) term 
Derivative of the polynomial (10,3) term 
Derivative of the polynomial (10,4) term 
Derivative of the polynomial (10,5) term 
Derivative of the polynomial (10,6) term 
Derivative of the polynomial (10,7) term 
Derivative of the polynomial (10,8) term 
Derivative of the polynomial (10,9) term 
Derivative of the polynomial (11,1) term 
Derivative of the polynomial (11,10) term 
Derivative of the polynomial (11,11) term 
Derivative of the polynomial (1 1,2 term 
Derivative of the polynomial (1 1,3 term 
Derivative of the polynomial (1 1,4) term 
Derivative of the polynomial (1 1,5) term 
Derivative of the polynomial (1 1,6) term 
Derivative of the polynomial (1 1,7) term 
Derivative of the polynomial (1 1,8) term 
Derivative of the polynomial (1 1,9) term 
Derivative of the polynomial (2,1) term 
Derivative of the polynomial (2,2) term 
Derivative of the polynomial (3,1) term 
Derivative of the polynomial (3,2) term 
Derivative of the polynomial (3,3) term 


AOR 

AR 

B 

BERR 

BM(ll) 

BP 

BR 

BT 


DPIOI 
DP 102 
DP103 
DP104 
DP105 
DPI 06 
DP 107 
DP108 
DP109 
DPI 11 
DPI 110 
DPllll 
DPI 12 
DPI 13 
DPI 14 
DPI 15 
DPI 16 
DPI 17 
DPI 18 
DPI 19 
DP21 
DP22 
DP31 
DP32 
DP33 
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DP41 

DP42 

DP43 

DP44 

DP51 

DP52 

DP53 

DP54 

DP55 

DP61 

DP62 

DP63 

DP64 

DP65 

DP66 

DP71 

DP72 

DP73 

DP74 

DP75 

DP76 

DP77 

DP81 

DP82 

DP83 

DP84 

DP85 

DP86 

DP87 

DP88 

DP91 

DP92 

DP93 

DP94 

DP95 

DP96 

DP97 

DP98 

DP99 

DPIOIO 


Derivative of the polynomial (4,1) term 
Derivative of the polynomial (4,2) term 
Derivative of the polynomial (4,3) term 
Derivative of the polynomial (4,4) term 
Derivative of the polynomial (5,1) term 
Derivative of the polynomial (5,2) term 
Derivative of the polynomial (5,3) term 
Derivative of the polynomial (5,4) term 
Derivative of the polynomial (5,5) term 
Derivative of the polynomial (6,1) term 
Derivative of the polynomial (6,2) term 
Derivative of the polynomial (6,3) term 
Derivative of the polynomial (6,4) term 
Derivative of the polynomial (6,5) term 
Derivative of the polynomial (6,6) term 
Derivative of the polynomial (7,1) term 
Derivative of the polynomial (7,2) term 
Derivative of the polynomial (7,3) term 
Derivative of the polynomial (7,4) term 
Derivative of the polynomial (7,5) term 
Derivative of the polynomial (7,6) term 
Derivative of the polynomial (7,7) term 
Derivative of the polynomial (8,1) term 
Derivative of the polynomial (8,2) term 
Derivative of the polynomial (8,3) term 
Derivative of the polynomial (8,4) term 
Derivative of the polynomial (8,5) term 
Derivative of the polynomial (8,6) term 
Derivative of the polynomial (8,7) term 
Derivative of the polynomial (8,8) term 
Derivative of the polynomial (9,1) term 
Derivative of the polynomial (9,2) term 
Derivative of the polynomial (9,3) term 
Derivative of the polynomial (9,4) term 
Derivative of the polynomial (9,5) term 
Derivative of the polynomial (9,6) term 
Derivative of the polynomial (9,7) term 
Derivative of the polynomial (9,8) term 
Derivative of the polynomial (9,9) term 
Derivative of the polynomial (10,10) term 


EOMC Electronic charge divided by relativistic mass energy equivalent (mixed units) 

(not used in this subroutine) [in COMMON /WRKVLU/] 

ERAD Average radius of the earth in kilometers (not used in this subroutine) 

[in COMMOM AVRKVLU/] 

Intermediate term used to evaluate when higher order terms can be dropped 


F(6) 



0 ( 11 , 11 ) 


Array of "F" values (velocity and acceleration in program coordinates) 

[in COMMON AVRKVLU/] 

Array of normalized magnetic field coefficients ordered for fast computation 


4 
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GMSUM 

Check value to assure that proper magnetic field coefficients are loaded 

GSUM 

Check data for testing that proper magnetic field coefficients are loaded 

JDATA 

Integer test value for loading in data statement for magnetic field coefficients 

JMAG 

Integer order of magnetic field expansion (N+1) 

L 

Intermediate index for data checking 

M 

Intermediate index for data checking 

MGNMAX 

Integer value of maximum order of magnetic field expansion 

PlOl 

Polynomial (10,1) term 

PlOlO 

Polynomial (10,10) term 

P102 

Polynomial (10,2) term 

P103 

Polynomial (10,3) term 

P104 

Polynomial (10,4) term 

P105 

Polynomial (10,5) term 

P106 

Polynomial (10,6) term 

P107 

Polynomial (10,7) term 

P108 

Polynomial (10,8) term 

P109 

Polynomial (10,9) term 

Pill 

Polynomial (11,1) term 

Pino 

Polynomial (11,10) term 

Pllll 

Polynomial (11,11) term 

PI 12 

Polynomial (1 1,2 term 

P113 

Polynomial (1 1,3 term 

P114 

Polynomial (1 1,4) term 

P115 

Polynomial (1 1 ,5) term 

P116 

Polynomial (1 1,6) term 

P117 

Polynomial (1 1,7) term 

P118 

Polynomial (1 1,8) term 

P119 

Polynomial (1 1,9) term 

P21 

Polynomial (2,1) term 

P22 

Polynomial (2,2) term 

P31 

Polynomial (3,1) term 

P32 

Polynomial (3,2) term 

P33 

Polynomial (3,3) term 

P41 

Polynomial (4,1) term 

P42 

Polynomial (4,2) term 

P43 

Polynomial (4,3) term 

P44 

Polynomial (4,4) term 

P51 

Polynomial (5,1) term 

P52 

Polynomial (5,2) term 

P53 

Polynomial (5,3) term 

P54 

Polynomial (5,4) term 

P55 

Polynomial (5,5) term 

P61 

Polynomial (6,1) term 

P62 

Polynomial (6,2) term 

P63 

Polynomial (6,3) term 

P64 

Polynomial (6,4) term 

P65 

Polynomial (6,5) term 
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P66 

Polynomial (6,6) term 

P71 

Polynomial (7,1) term 

P72 

Polynomial (7,2) term 

P73 

Polynomial (7,3) term 

P74 

Polynomial (7,4) term 

P75 

Polynomial (7,5) term 

P76 

Polynomial (7,6) term 

P77 

Polynomial (7,7) term 

P81 

Polynomial (8,1) term 

P82 

Polynomial (8,2) term 

P83 

Polynomial (8,3) term 

P84 

Polynomial (8,4) term 

P85 

Polynomial (8,5) term 

P86 

Polynomial (8,6) term 

P87 

Polynomial (8,7) term 

P88 

Polynomial (8,8) term 

P91 

Polynomial (9,1) term 

P92 

Polynomial (9,2) term 

P93 

Polynomial (9,3) term 

P94 

Polynomial (9,4) term 

P95 

Polynomial (9,5) term 

P96 

Polynomial (9,6) term 

P97 

Polynomial (9,7) term 

P98 

Polynomial (9,8) term 

P99 

Polynomial (9,9) term 


RCIO 

RCll 

RC2 

RC3 

RC4 

RC5 

RC6 

RC7 

RC8 

RC9 


Intermediate value (N=10) in magnetic field expansion 
Intermediate value (N=l 1) in magnetic field expansion 
Intermediate value (N=2) in magnetic field expansion 
Intermediate value (N=3) in magnetic field expansion 
Intermediate value (N=4) in magnetic field expansion 
Intermediate value (N=5) in magnetic field expansion 
Intermediate value (N=6) in magnetic field expansion 
Intermediate value (N=7) in magnetic field expansion 
Intermediate value (N=8) in magnetic field expansion 
Intermediate value (N=9) in magnetic field expansion 


TCP 10 

TCPll 

TCP2 

TCP3 

TCP4 

TCP5 

TCP6 

TCP7 

TCP8 

TCP9 

TCY2 

TCY3 


Trigonometric cosine function for the PIO term 
Trigonometric cosine function for the PI 1 term 
Trigonometric cosine function for the P2 term 
Trigonometric cosine function for the P3 term 
Trigonometric cosine function for the P4 term 
Trigonometric cosine function for the P5 term 
Trigonometric cosine function for the P6 term 
Trigonometric cosine function for the P7 term 
Trigonometric cosine function for the P8 term 
Trigonometric cosine function for the P9 term 
Trigonometric cosine of the vector theta angle in r, 6, <|) coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 0, <|) coordinates 
[in COMMON /SNGLR/] 
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TSPIO 

Trigonometric sine ftmction for the PIO term 

TSPll 

Trigonometric sine function for the PI 1 term 

TSP2 

Trigonometric sine function for the P2 term 

TSP3 

Trigonometric sine function for the P3 term 

TSP4 

Trigonometric sine function for the P4 term 

TSP5 

Trigonometric sine function for the P5 term 

TSP6 

Trigonometric sine function for the P6 term 

TSP7 

Trigonometric sine function for the P7 term 

TSP8 

Trigonometric sine function for the P8 term 

TSP9 

Trigonometric sine function for the P9 term 

TSY2 

Trigonometric sine of the vector theta angle in 
[in COMMON /SNGLR/] 

TSY3 

Trigonometric sine of the vector phi angle in r 
[in COMMON /SNGLR/] 

VEL 

Particle velocity in earth radii per second (not ' 
[in COMMON AVRKVLU/] 

Y(6) 

Array of "Y" values (position and velocity in i 
[in COMMON /WRKVLU/] 


t 


Reference publication: 

Computation of the Main Geomagnetic Field for Spherical Harm onic ExpansioiL Data Users Note 
NSSDC 68-11, February 1968, NSDC, NASA, GFSC, Greenbelt MD. 
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DESCRIPTION OF PROGRAM TJALLMAG 


This software package is self-contained and capable of being compiled and executed on a variety of 
platforms ranging from a personal computer to large scale "super computers". The software is ^^en in 
FORTRAN 77. The software is designed to efficiently compute the trajectory of an energetic charged 
particle of a specified momentum per unit charge (rigidity) through a model magnetic field. For cosmic 
ray access to the earth, the geocenter becomes the origin of the coordinate system. All calculations ^e 
done in the r, 0, (b coordinate system (a right-handed, orthogonal coordinate system). The magnetic field 
subroutine included in this software is the NASA NSSDC ALLMAG program which has the option of 
including a number of magnetic field models. This version has the control (MODEL - 14) which 
specifies the 1GRF95 model of the earth's magnetic field. 


In its usual mode of computing the path of cosmic ray trajectories in a model of the earth's magnetic 
field, we utilize this program to determine the path of a cosmic ray (a positively charged particle) from 
interplanetary space arriving at the earth at a specified position and direction. To accomplish this, a 
negatively charged particle is 'launched' from the 'top' of the atmosphere at a specified position (latitude 
and longitude) in a specific direction (zenith and azimuth), and its path traced though the model magne ic 
field until it either (1) reaches a specified radial distance, (2) reenters the atmosphere, or (3) fails to reach 
either condition by a specified number of iterative steps. If the negative test particle path penetrates the 
specified outer boundary (reaches interplanetary space) the direction of the particle velocity vector at the 
boundary crossing is specified as asymptotic latitude and longitude (in corresponding geocentnc 
coordinates). If the charged particle re-enters the atmosphere, then the re-entrant coorfinates (g®o^en c 
latitude and longitude) are given. In this version of the software, an oxygen nuclei ( O) is used as the test 
particle. Since rigidity is a canonical coordinate, the path of any charged particle having the speci le 
rigidity will be the same. 


The software can be adapted to trace the path of any particle of a specified ngidity from a specified 
position and direction through any model magnetic field as long as the magnetic field is expressed as 
vectors in the r, 6, (|) coordinate system. 


The 'input' to this program is a data line that specifies the initial position (latitude, longitude 
and altitude above the earth's surface), direction (azimuth and zenith), and rigidity 
(momentum per unit charge) along with control parameters to do K trajectory 
calculations at specified rigidity increments beginning at an initial specified ngidity. 


The 'output' of the software is in summary files with one line for each trajectory calculation. 
The traditional summary output is called TAPE7 and is in an 80-colunm "card linage 
format. This contains the initial conditions (the geodetic latitude, longitude, rigidity, 
zenith, and azimuth), the final results (asymptotic latitude and longitude), fate of the 
trajectory, the number of steps in the trajectory calculation, plus a magnetic field 
identifier. 


There is also a second output summary, traditionally called TAPES, whmh is m a line 
printer 132 column format. This contains more detail; the initial conditions (the geodetic 
and geocentric latitude, the longitude, rigidity, zenith, and azimuth), the final results 
(asymptotic latitude and longitude, path length (in earth radii), trajectory transit time, 
time at altitudes under 100 km, number of maximum and minimum in radial distance 
along the trajectory, the trajectory fate, the number of steps in the calculation, plus a 
magnetic field identifier. 
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This structured FORTRAN 77 software assembly consists of a main program and four associated 
subroutines. The software has extensive internal comments to aid the user in understanding the program. 
The program and subroutines are: 


Program TJALLMAG 

Subroutine GDGC 

Subroutine SINGLTJ 

Subroutine FGRADA 

Subroutine ALLMAG 


Main program; primary purpose is control 
Conversion from geodetic to geocentric coordinates 
Calculates a particle trajectory 
Evaluates the V X B force vectors on the particle 
Calculates the vector magnetic field at position r, 0, (j) 


Program Organization: 

Each subroutine has a separate unique funetiou. Critical and oto used variahte ^defmed in 
labeled common blocks. The important "working" variables are m tta common block WEKV^U. 
trigonometric sines and cosines are in common block WRKTSC. Delmition^sociated with the shape of 
thiellipsoid representing the surface of the earth are in common blockOEOlD. “ 

some "super computers" do not allow mixing of real and intega vimables ■” ^ ’ 

therefore the are two additional common blocks associated with subroutine SINGLTJ These are 
common block SNGLR (real variables) and common block SNGLI (integer vanables) 


Accuracy and Precision 

It is recommended that the REAL*8 precision always be used. The primary limitation affecting the 
results is the accuracy of the magnetic field expansion. For reasonably simple trajectones the results 
should be repeatable, independent of the computer platform used. For long complex 
compiler options (round off or truncate, and the precision of intrinsic function) begin ^ affect the result. 
The calculation procedure includes automatic error checking. The particle acceleration terms ar 
monitored in subroutine SINGLTJ. When significant increases m the force on . ^ 

step size is reduced and the calculations are continued at smaller step intervals. The quantity BE (P 
v/c) should be invariant throughout the calculation and is monitored^ Changes of BETA exceeding 1 part 
in iV results in an automatic restart and the trajectory is recalculated at smaller step size increments. 

On some "main fames" the intrinsic functions are automatically derived in REj^* 8 precision; on 
some the mtiinsic functions are evaluated in a REALM mode ^lej the double jnectston 

argument is specified. In this version intended for the Desktop Computer, all intnnsic functions 
specified in the double precision mode; however, we have left a single precision statement commen 
out" immediately before each double precision statement. For simple trajectones the 
cannot note any difference; however, for long complex trajectones, the differences between the use of 
single precision intrinsic functions and double precision intrinsic functions will become apparent. If a 
specific rigidity and direction is used for comparison and the position of each trajectory step is monitored, 
the effect of the small differences between REALM and REALM accumulate and eventually the 
trajectory path will differ is it is a long complex trajectory. 


T Iser Defined Parameters: 

Two variables are intended to be user defined. These are FSTEP and LIMIT. Default values have 

been set in the program, LIMIT = 600,000, and FSTEP = 4 x 10 . 

LIMIT is the number of Runge-Kutta steps allowed before a trajectory is declared failed. 
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FSTEP is the total number of Runge-Kutta steps allowed before the run is tenninated. 

Simple high rigidity trajectories often require only several hundred steps. Simple trajectones above the 
upper cutoff rigidity often can be completed in a few thousand steps. Most cosmic 
complete in about 10,000 steps. Some quasi-trapped penodic orbits may require more than J 00,000 p . 
Trapped orbits require an infinite number of steps. Very low rigidity trajectones mitiat^at high polar 
latitudes will exhibit the quasi-trapped behavior and probably fail to reach a solution. fThe step size 
criteria is based on the time to travel about one percent of a gyro-distance. Therefore trajectones 
many loops require many steps to complete.) 

Assuming the user wants to operate in a "batch mode" some job control parameters are needed. This 
is the quantity FSTEP. Some estimate of the computer speed is necessary. For desWop personal 
computers this can range from a few hundred steps per second on old obsolete 486 chips to the ordCT of 
50 000 steps per second obtainable with current Pentium® HI chips operating at approximately 1 (jHz 
clwk cycle time. We have found a very significant difference in the program computational speed on the 
same computer that can be attributed to the efficiency of the object code generated by the 
our testing on desktop platforms we have found that the executable code generated by the COhff AQ® 
Visual Fortran operates efficiently on a Microsoft® Windows operating system. The worst performing 
executable code (derived from an old, no longer sold system) ran about five times slower on the same test 
set of trajectory calculation. It is assumed that workstations will have trajectory computational speeds of 
the order or at least 10,000 steps per second. The default FSTEP setting will allow a batch run of the 
order of 10 hours if the program executes at 10,000 Runge-Kutta steps per second. 


Program Operation 

This program operates in the r, 0, cp coordinate system. The variables Y(l), Y(2), and Y(3) are the 

position vectors in the r, 0, cp coordinate system and the variables Y(4), Y(5), and Y(6) are the velocity 
vectors. 


The program initially defines the physical constants used in the calculation and control paraineters. 
It then enters a control loop beginning with reading a data line to determine the initial position an 
direction, the specified starting rigidity and how many trajectones to calculate at specified mcremen . 


For each control line read, a call to subroutine GDGC converts the initial geodetic coordinates (map 
makers coordinates on the earth's surface) to geocentric r, 0, (|) coordinates. Then the trajectory 
calculations are done by subroutine SINGLTJ 


The control loop continues (read in control line, convert coordinates, do trajectory calculations) until 
a negative (or zero) value of rigidity is read in. When this occurs the program terminates. 


Tabeled Common arguments: 

Block name: AVRKVLU/ 

Arguments in block F(6), Y(6), ERAD, EOMC, VEL, BR, BT, B 

Array of force and acceleration vectors 
Array of position and velocity vectors 

Average radius of the earth in kilometers • j • \ 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 
Particle velocity in earth radii per second 
Value of the B((|)) magnetic field vector (in units of Gauss) 


F(6) 

Y(6) 

ERAD 

EOMC 

VEL 

BP 
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Value of the B(r) magnetic field vector (in units of Gauss) 
Value of the B(0) magnetic field vector (in units of Gauss) 


Block name: 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


AVRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Block name: 
Arguments in block 
PI 

RAD 

PI02 


muG/ 

PI, RAD, PI02 
Value of pi 

Value of degrees in a radian 
Value of pi/2.0 


Block name: 


Arguments in block 
ERADPL 
ERECSQ 


/GEOID/ 

ERADPL, ERECSQ 

Polar radius of the earth in kilometers 

Eccentricity of ellipsoid squared 


Block name: 
Arguments in block 

SALT 

DISOUT 

GCLATD 

GDLATD 

GLOND 

GDAZD 

GDZED 

RYl 

RY2 

RY3 

RHT 

TSTEP 


/SNGLR/ 

SALT, DISOUT, GCLATD, GDLATD, GLOND, GDAZD, GDZED, 

RYl , RY2, RY3, RHT, TSTEP 

Start altitude of trajectory above surface of geoid 

Radial distance (in earth radii) for termination of calculation 

Geocentric latitude in degree 

Geodetic latitude in degrees 

East longitude in degrees 

Geodetic azimuth in degrees 

Geodetic zenith in degrees 

Original start position Y(l), (radial component in the r, 0, (p coordinate system) 
Original start position Y(2), (theta component in the r, 0, (p coordinate system) 
Original start position Y(3), (phi component in the r, 0, (p coordinate system) 
Height above geoid where trajectory re-enters the atmosphere 
Total number of steps in this run. 


Block name: 
Arguments in block 
LIMIT 
NTRAJC 
lERRPT 


/SNGLI/ 

LIMIT, NTRAJC, lERRPT 

Maximum number of steps before 'failed' trajectory 
Number of trajectories calculated in this run 
Integer control for printing diagnostics (normally = 0) 


Subroutines called: 

GCGC (TCD, TSD) 
TCD 
TSD 


Cosine of the rotation angle 
Sine of the rotation angle 
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SINGLTJ (PC, IRSLT, 
PC 

IRSLT 

INDXPC 

YIGC 

Y2GC 

Y3GC 


INDXPC, YIGC, Y2GC, Y3GC) 

Particle rigidity (in units of GV) 

Integer result of trajectory calculation 

(+1 = Allowed, 0 = Failed, -1 = Re-entrant) 
Integer value of PC in units of MV 
Y(l) position in geocentric coordinates 
Y(2) position in geocentric coordinates 
Y(3) position in geocentric coordinates 


Dimensioned variables: 
F(6) 

Y(6) 


all in labeled common 

Array of force and acceleration vectors 

Array of position and velocity vectors 


Data files: none 


Output files: 

TAPE? from subroutine SINGTJ (80 character summary) 

TAPES from subroutine SINGTJ (132 character line printer summary) 
TAPE16 (diagnostic output; if desired, set lERRPT to > 0) 


Listing of all variables in program TJALLMAG 


B 

BP 

BR 

BT 


Magnitude of the magnetic field (in Gauss) [in COMMON /WRKVLU/] 

Value of the B(<t>) magnetic field vector (in Gauss) [in COMMON AVRKVLU^ 
Value of the B(r) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 
Value of the B(0) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 


CF 


Character variable "F" 


DELPC 

DISOUT 

ERAD 

ERADPL 

ERECSQ 

F(6) 


GCLATD 

GDAZ 

GDAZD 

GDLATD 

GDZE 

GDZED 

GLOND 


crements of rigidity spacing search in control line d 

i stance An earth radii) for trajectory termination [in COMMON /SNOLK/J 


Average radius of the earth in kilometers [in COMMOM /WRKVLU/] 
Polar radius of the earth in km [in COMMON /GEOID/] 

Eccentricity of ellipsoid squared [in COMMON /GEOID/] 


Array of "F" values (velocity and acceleration in program coordinates) 

[in COMMON /WRKVLU/] 

Geocentric latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic azimuth in radians (measured clockwise from north) 

Geodetic azimuth in degrees (measured clockwise from north) 

Geodetic latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic zenith in radians (0 = vertical) 

Geodetic zenith in degrees (0 = vertical) 

Geodetic East longitude in degrees (from Greenwich meridian) 

[in COMMON /SNGLR/] 
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IDELPC 

lERRPT 

INDEX 

INDO 

INDXPC 

lOSTAT 

IRSLT 

ISALT 

LIMIT 

LSTEP 

NDO 

NTRAJC 

PC 

PI 

PI02 

RAD 

RHT 

RYl 

RY2 

RY3 


SALT 


TCD 

TCGDAZ 

TCGDZE 

TCY2 

TCY3 

TSTEP 

TSY2 

TSY3 


VEL 

Y(6) 

YIGC 


Integer value of rigidity change increment in MV (attempt to avoid round off) 
Integer control for printing diagnostics (normally set to 0) 

Arbitrary index number of input control line (optional) 

Integer control of number of trajectories to calculate 

Integer value of rigidity in MV increments (attempt to avoid round off) 

Integer system argument of status of read 

Internal result of particle trajectory (+1 = allowed, 0 = failed, -1 = re-entrant) 
Integer value of start altitude (in km) above geoid surface 

Limit of number of steps before trajectory is declared "Failed" 

Number of times step size control has been reduced to overcome trajectory error 

Integer control read in (number of trajectories to compute from this control line) 
Number of trajectories in this computer run 

Rigidity of particle (in units of GV) 

Real value of the quantity Pi (~3. 1415926535) [in COMMON /TRIG/] 

Real value of Pi divided by 2.0 [in COMMON /TRIG/] 

Real value of one radian (-57.29578 degrees) [in COMMON /TRIG/] 

Height above geoid where a trajectory re-entered the atmosphere 
Real value of the starting position of the r coordinate in r, 0, (|> coordinates 
[in COMMON /SNGLR/]] 

Real value of the starting position of the theta coordinate in r, 6, ^ coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the phi coordinate in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Real value of the starting altitude above the surface of the geoid 
[in COMMON /SNGLR/] 

Trigonometric cosine of the rotation angle from geodetic to geocentric 
Trigonometric cosine of the geodetic azimuth 

(Measured clockwise from north) [in COMMON /SNGLR/] 

Trigonometric cosine of the geodetic zenith (measured clockwise from north) 
Trigonometric cosine of the vector theta angle in r, 0, (|> coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Number steps executed in this run 

Trigonometric sine of the vector theta (0) angle in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Value of the trigonometric sine of the vector phi ((j») angle in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 

Array of " Y" values (position and velocity in r, 0, <|) coordinates) 

[in COMMON /WRKVLU/] 

Starting position, r component in geocentric r, 0, (j) coordinates 
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YIGD 

Y2GC 

Y2GD 

Y3GC 

Y3GD 


Starting position, r component in geodetic r, 9, (]) coordinates 
Starting position, 0 component in geocentric r, 0, <|) coordinates 
Starting position, 0 component in geodetic r, 0, (|) coordinates 
Starting position, (|) component in geocentric r, 0, <1) coordinates 
Starting position, (j) component in geodetic r, 0, (j) coordinates 
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Subroutine GDGC (TCD, TSD) 


This subroutine calculates the angle between geodetic and geocentnc coordinates^ ^e argumen 
TCD and TSD are the trigonometric cosine and sine of the rotation angle from a normal from e sm a 
of the geoid (geodetic coordinates) and a radial from the center of the earth (geocentnc coordinates). See 

Appendix B of NSSDC 72-12) 


Arguments in call statement 

TCD Cosine of the rotation angle 
TSD Sine of the rotation angle 


T.abeled Common arguments: 

Block name: AVRKVLU/ 

Arguments in block F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
Array of force and acceleration vectors 
Array of position and velocity vectors 

ERAD Average radius of the earth in kilometers , ■ a + \ 

EOMC Electronic charge divided by relativistic mass energy equivalent (mixed units) 

VEL Particle velocity in earth radii per second 

BP Value of the B(())) magnetic field vector (in units of Gauss) 

BR Value of the B(r) magnetic field vector (in units of Gauss) 

BT Value of the B(0) magnetic field vector (in units of Gauss) 


Block name: 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


AVRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Block name: 
Arguments in block 
PI 

RAD 

PI02 


/TRIG/ 

PI, RAD, PI02 
Value of pi 

Value of degrees in a radian 
Value of pi/2.0 


Block name: 
Arguments in block 
ERADPL 
ERECSQ 


/GEOID/ 

ERADPL, ERECSQ 

Polar radius of the earth in kilometers 

Eccentricity of ellipsoid squared 


Block name: 
Arguments in block 

SALT 

DISOUT 

GCLATD 

GDLATD 

GLOND 


SALT, DISOLFT, GCLATD, GDLATD, GLOND, GDAZD, GDZED, 

RYl , RY2, RY3, RHT, TSTEP 

Start altitude of traj ectory above surface of geoid 

Radial distance (in earth radii) for termination of calculation 

Geocentric latitude in degrees 

Geodetic latitude in degrees 

East longitude in degrees 
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GDAZD 

GDZED 

RYl 

RY2 

RY3 

RHT 

TSTEP 


Geodetic azimuth in degrees 
Geodetic zenith in degrees 
Original start position Y(l) 

Original start position Y(2) 

Original start position Y(3) 

Height above geoid where trajectory re-enters the atmosphere 
Total number of steps in this run. 


Block name: 
Arguments in block 
LIMIT 
NTRAJC 
lERRPT 


/SNGLI/ 

LIMIT, NTRAJC, lERRPT 

Maximum number of steps before 'failed' trajectory 
Number of trajectories calculated in this run 
Integer control for printing diagnostics (normally = 0) 


Dimensioned variables : all in labeled common 

F(6) Array of force and acceleration vectors 

Y(6) Array of position and velocity vectors 


Subroutines called: none 


Data files: none 


Output files : none 


Operation : 

The shape of the earth used is not a sphere, but an ellipsoid having a specified polar radius, 
equatorial radius, and eccentricity. When this subroutine is called, it defines the shape of an oblate earto 
from the polar and equatorial radius, and calculates vectors from a normal on the surface of the ellipsoid 
to the specified position in geodetic coordinates, at the specified latitude, and determines the vector 
rotation angle between geodetic coordinates and geocentric coordinates. The sine and cosine of this 
rotation angle are passed to the calling program. Geodetic latitude is a measure of latitude in a coordinate 
system normal to the surface of the earth. At a position on or above the surface of the ellipsoid, there is a 
slight difference between a direction normal to the surface of the ellipsoid and a direction to the 
geocentric. This difference is latitude dependent. (It is zero at the equator or poles and can be as large as 
approximately 1/2 of a degree at mid latitudes.) The vector rotation angle allows for direction 
specification in both geodetic (map) coordinates and geocentric coordinates. This small correction for the 
direction may be insi^ificant for some applications, but may be significant for precision calculation in a 
specific direction at high rigidities. 


Data checking : none. The data to describe the shape of the earth are included in the subroutine. 


Listing of all variables used in subroutine GDGC of program TJALLMAG 
B Magnitude of the magnetic field (in Gauss) [in COMMON /WRKVLU/] 

BP Value of the B(<()) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 
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BR 

BT 

DISOUT 

DISTKM 

EOMC 

ERAD 

ERADPL 

ERECSQ 

ERPLSQ 

F(6) 


GCLATD 

GDAZD 

GDCLT 

GDLATD 

GDZED 

GLOND 


ONE 

PI 

PI02 

RAD 

RHO 

RHT 

RYl 

RY2 

RY3 


SALT 


TCD 

TCGDCLT 

TCY2 

TCY3 

THREE 


Value of the B(r) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 
Value of the B(0) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 

Distance (in earth radii) for trajectory termination [in COMMON /SNGLR/] 
Starting position geocentric radial distance from geocenter 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 

[in COMMON AVRKVLU/] 

Average radius of the earth in kilometers [in COMMOM /WRKVLU/] 

Polar radius of the earth in km [in COMMON /GEOID/] 

Eccentricity of ellipsoid squared [in COMMON /GEOID/] 

Polar radius of earth (in km) squared 

Array of "F" values (velocity and acceleration in program coordinates) 

[in COMMON /WRKVLU/] 

Geocentric latitude in degrees (+ == north, south = -) [in COMMON /SNGLR/] 
Geodetic azimuth in degrees (measured clockwise from north) 

Geodetic co-latitude (in radians) 

Geodetic latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic zenith in degrees (0 = vertical) 

Geodetic East longitude in degrees (from Greenwich meridian) 

[in COMMON /SNGLR/] 

Intermediate term in computations (see NSSDC ALLMAG description) 

Real value of the quantity Pi (-3.1415926535) [in COMMON /TRIG/] 

Real value of Pi divided by 2.0 [in COMMON /TRIG/] 

Real value of one radian (-57.29578 degrees) [in COMMON /TRIG/] 
Intermediate term in computations (see NSSDC ALLMAG description) 

Height above geoid where a trajectory is declared re-entrant 
[in COMMON /SNGLR/] 

Real value of the starting position of the r coordinate in r, 0, <[) coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the theta coordinate in r, 0, ([) coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the phi coordinate in r, 0, «() coordinates 
[in COMMON /SNGLR/] 

Real value of the starting altitude above the surface of the geoid 
[in COMMON /SNGLR/] 

Trigonometric cosine of the rotation angle fi-om geodetic to geocentric 
Trigonometric cosine of the geocentric co-latitude 
Trigonometric cosine of the vector theta angle in r, 0, <[) coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 0, ^ coordinates 
[in COMMON /SNGLR/] 

Intermediate term in computations (see NSSDC ALLMAG description) 
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TSD 

TSGDCLT 

TSTEP 

TSY2 

TSY3 

TWO 

VEL 


Trigonometric sine of the rotation angle from geodetic to geocentric 
Trigonometric sine of the geocentric co-latitude 
Number steps executed in this run 

Trigonometric sine of the vector theta (0) angle in r, 0, <|) coordinates 
[in COMMON /SNGLR/] 

Trigonometric sine of the vector phi (<|)) angle in r, 0, (j) coordinates 
[in COMMON /SNGLR/] . . 

Intermediate term in computations (see NSSDC ALLMAG description) 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 


Y(6) 


Array of "Y" values (position and velocity in r, 0, (j) coordinates) 
[in COMMON AYRKVLU/] 


Reference publication: 
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Subroutine SINGLTJ (PC, IRSLT, INDXPC, YIGC, Y2GC, Y3GC) 

This subroutine does the actual trajectory tracing. When called it initially defines control parameters 
and constants used in the particle tracing and initializes the Runge-Kutta vanables to zero. It sets up t e 
initial position and direction, and defines the relativistic parameters relating to the particle total energy 

and speed. 

In this version of the subroutine, an oxygen nuclei ('*0) is used as the test parti^. By definition a 
‘‘'O nuclei has a mass of 16 Atomic Mass Units (AMU) and an atomic charge of 8. The mass-energy 
conversion for one AMU is 0.93 1 14 GeV. If it were desired to modify the program for some other nuclei, 
such as a proton that has an atomic charge of 1 and atomic mass of 1.0081415 AMU, then the rest mass 
energy for atomic nuclei must be adjusted. 

After the initial definitions, the subroutine then chooses an initial starting step length (a relatively 
small value) and starts the Runge-Kutta process of tracing the particle trajectory. After each step it goes 
though an error checking and detection process. If the checks are satisfactory, it determines the particle 

location with respect to the atmosphere and the outer boundary. ■ t, • 

If the charged particle is between the atmosphere and the outer boundary, it adjusts the size 
of the next step and continues the trajectory tracing until the LIMIT on the number of 
steps is reached. 

If the charged particle is entering the atmosphere, it terminates the calculation. 

If the charged particle is less than 100 km above the earth's surface, it maintains a running 
sum of the time at low altitudes. 

If the charged particle is approaching the outer boundary, it adjusts the step size so it 

penetrates this boundary at small step lengths. 

If the charged particle has penetrated the outer boundary at a small step, it computes the final 

coordinates. , , , i . . . 

When the particle has reached a solution (allowed or re-entrant) or reached the step limit, it vmtes 

out the result and returns to the calling program. 


Arguments in call statement 

PC, IRSLT, INDXPC, YIGC, Y2GC, Y3GC 


PC Particle rigidity 

IRSLT Integer result of trajectory (+1 = allowed, 0 = failed, -1 = re-entrant) 

INDXPC Integer value ofPC in MV units 

Y 1 GC Y( 1 ) position in geocentric coordinates 

Y2GC Y(2) position in geocentric coordinates 

Y3GC Y(3) position in geocentric coordinates 


Labeled Common arguments : 

Block name: AVRKVLU/ 

Arguments in block F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
Array of force and acceleration vectors 
Array of position and velocity vectors 
Average radius of the earth in kilometers 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 
Particle velocity in earth radii per second 
Value of the B((j)) magnetic field vector (in units of Gauss) 

Value of the B(r) magnetic field vector (in units of Gauss) 


F(6) 

Y(6) 

ERAD 

EOMC 

VEL 

BP 

BR 
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BT 


Value of the B(0) magnetic field vector (in units of Gauss 


Block name; 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


AVRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Block name; 
Arguments in block 
PI 

RAD 

PI02 


/TRIG/ 

PI, RAD, PI02 
Value of pi 

Value of degrees in a radian 
Value of pi/2.0 


Block name; 
Arguments in block 


ERADPL 

ERECSQ 


/GEOID/ 

ERADPL, ERECSQ 

polar radius of the earth in kilometers 

Eccentricity of ellipsoid squared 


Block name; 
Arguments in block 

SALT 

DISOUT 

GCLATD 

GDLATD 

GLOND 

GDAZD 

GDZED 

RYl 

RY2 

RY3 

RHT 

TSTEP 


S^ALT^mSOUT, GCLATD, GDLATD, GLOND, GDAZD, GDZED, 

RYl , RY2, RY3, RHT, TSTEP 

Start altitude of trajectory above surface of geoid 

Radial distance (in earth radii) for termination of calculation 

Geocentric latitude in degrees 

Geodetic latitude in degrees 

East longitude in degrees 

Geodetic azimuth in degrees 

Geodetic zenith in degrees . 

Original start position Y(l), (radial component in the r, 0, (p coordinate syst ) 

Original start position Y(2) , (theta component in the r 0, cp ^ ^ 

Original start position Y(3) , (phi component in the r, ,9 coor ina e 
Height above geoid where trajectory re-enters the atmosphere 
Total number of steps in this run. 


Block name; 
Arguments in block 
LIMIT 
NTRAJC 

ierrpt 


/SNGLI/ 

LIMIT, NTRAJC, IERRPT 

Maximum number of steps before 'failed' trajectory 
Number of trajectories calculated in this run 
Integer control for printing diagnostics (normally - 0) 


Dimension variables ; (not in labeled common) 

P(6), Q(6), R(6), S(6), YB(6), FOLD(6), YOLD(6) 

P(6) Runge-Kutta variable 

Q(6) Runge-Kutta variable 

Runge-Kutta variable 
S(6) Runge-Kutta variable 

YB(6) Runge-Kutta variable 

FOLD(6) "F" vectors of previous step 
YOLD(6) "Y" vectors of previous step 
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Subroutines called : FGRADA 


Data files: none 


Output files : 

TAPE? (80 character summary) 

TAPES (132 character line printer summary) 

TAPE 16 (diagnostic output; if desired set lERRPT to > 0) 


Program Operation : 

This program operates in the r, 0, cp coordinate system. The variables Y(l), Y(2), and Y(3) are the 
position vectors in the r, 0, (p coordinate system and the variables Y(4), Y(5), and Y(6) are the velocity 
vectors. 

When this subroutine is called, it initially defines control parameters and constants used in the 
particle path tracing, and initializes the Runge-Kutta variables to zero. It obtains the particle s height with 
respect to the surface of an oblate earth. It sets up the initial position vectors, Y(l), Y(2) and Y(3), and 

based on the particle rigidity, sets up velocity vectors, Y(4), Y(5), and Y(6). It then defines the 

relativistic parameters TENG (total energy), EOMC (charge per relativistic mass/energy equivalent), and 
GMA (the relativistic parameter of total energy over the rest mass energy). It defines scalar quantities 
relating to the particle, BETA (the particle speed with respect to light), PVEL (the particle speed m earth 
radii per second), and HMAX (a maximum step length allowed for this particle rigidity). 

Next it defines an initial starting step length (a relatively small value) and starts the Runge-Kutta 
process of tracing the particle trajectory. Comment cards specifically indicate the Runge-Kutta iteration 
process, which is the coding between FORTRAN statement numbers 130 and 170. The calls to 
subroutine FGRADA evaluate the V X B force on the particle during this step. The logic is very similar 
to that documented in Ralston and Wilf (1960). After each Runge-Kutta iteration step there is an 
extensive error checking and detection process. 

The error checking process begins with a check on the particle speed (BETA), which should rernain 
invariant throughout the trajectory. If the difference between the initial particle speed (BETA) and it s 
current speed (RCKBETA) is greater than EDEF, then the trajectory tracing process is re-initialized 
(including the NSTEP variable) and the trajectory re-started at a smaller step size selection cntena. Up to 
five re-starts are allowed before the specific trajectory is declared impossible to calculate, evaluated as 
"failed", and the path length made negative in order to distinguish it from successful trajectories. In order 
to attempt to reach a solution the EDIF variable is widened by a factor of two after each successive 
trajectory failure. 

After the error check, then the acceleration of the particle is compared with previous values. We 
have found that computational errors are most likely to occur when there are rapid changes in the 
acceleration. If the average change in acceleration exceeds a factor of five, or if any component of the 
acceleration exceeds a factor of three, then the step length for the next Runge-Kutta step is reduced. 



Final Report Grant NAG5-8009, Section II, Part3, TJALLMAG Program Description 


81 


Along the particle path the software checks the particle location with respect to the atmosphere and 
the outer boundary. If the charged particle is less than 100 km above the earth s surface, it maintains a 
running sum of the time at low altitudes. If the charged particle is entering the atmosphere, it terminates 
the calculation. 

The next check determines if the particle has penetrated the outer termination boundary. The step 
length can be relatively large at extreme distances from the earth. If the outer boundary has been 
penetrated at a large step size, the trajectory is "backed up" and the step size reduced until it penetrafrs the 
boundary at a small step size. This results in a more precise determination of the penetration location 
and can significantly affect the computed asymptotic direction. 

If there are no errors and the charged particle is between the atmosphere and the outer boundary, the 
software adjusts the size of the next step appropriate for the magnitude of the magnetic field (the step size 
is normally about one percent of the gyro-distance) and continues the trajectory tracing. The basic step 
length algorithm is: 


H = ((2.0*7t*33.333*PC)/(B*p*C))/100.0 

where "H" is time in seconds, "PC" is the particle rigidity in GV, "B" is the magnitude of 
the magnetic field in Gauss and "C" is the speed of light in km/sec. 

(A handy formula to remember is the gyro-radius is 33 km per GV per Gauss) 

The software initially starts at a trajectory calculation at a small step size and the step size is permitted 
to grow at a maximum of about 20 percent each step. If the particle trajectory starts to loop to a lower 
altitude, then the step size is reduced to compensate for the increasing magnitude of the magnetic field. 
When a loop in the trajectory develops, the acceleration forces increase and step size adjustments are • 
made in the case of a significant increase in the acceleration forces. 

During the trajectory tracing, the software notes the number of maximum and minima the trajectory 
experiences. This information is useful in ascertaining the complexity of the trajectory. 

When the particle has reached a solution (allowed or re-entrant) or reached the step limit, the 
subroutine will write out the result and return to the calling program. The fate is coded in the variable 
IF ATE: (0 = Allowed, 1 = Failed, 2 = Re-entrant, 3 = Failed, but max alt > 6.6 earth radii) 

If the trajectory is allowed (penetrates the outer boundary), then the velocity vectors are transformed 
into asymptotic latitude and longitude. Asymptotic latitude and longitude are the geocentric coordinates 
the velocity vector would have at infinity. If the trajectory re-enters the atmosphere, then the position 
coordinates are transformed to geocentric latitude and longitude. 

The 'output' of the software is in summary files, on one line for each trajectory calculation. 

The output files are: 

TAPE? is in an 80-column "card image" format. This contains the initial conditions 
(the geodetic latitude, longitude, rigidity, zenith, and azimuth), the final results 
(asymptotic latitude and longitude, fate and number of steps), and a magnetic field 
identifier. 

TAPES is in a line printer 132-column format. This contains more detail; the initial 
conditions (the geodetic latitude and the geocentric latitude, the longitude, rigidity, 
zenith, and azimuth), the final results (asymptotic latitude and longitude, path length. 
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trajectory time, time at altitudes under 100 km, number of maximum and minimum in 
trajectory, fate, and number of steps), and a magnetic field identifier. 

TAPEl 6 is a diagnostic output, including a record of restarts due to BETA checks 
or trajectory failures. 

See the examples section for samples of the output. 


Possible Additions for Trajectory Plotting 

If it is desired to plot a trajectory, the position variables Y(l), Y(2), and Y(3) must be stored after 
each Runge-Kutta step in a suitable array. The task of adding such a modification should be 
straightforward and is left to the individual program user. 


Listin 2 of all variables in subroutine SINGLTJ 

ACCER Magnitude of current value of the particle acceleration 

ACCOLD Magnitude of last value of the particle acceleration 

AFOLD Absolute value of fold 

AHLT Variable to control step size at high latitude 

ANUC Atomic number of number of nucleons in atom 

ATRG 1 Intermediate value to compute asymptotic latitude (avoid 0/0 problem) 

ATRG2 Intermediate value to compute asymptotic latitude (avoid 0/0 problem) 

AZD Azimuth angle in degrees (measured clockwise from north) 


B 

BETA 

BETAST 

BP 

BR 

BT 


Magnitude of the magnetic field (in Gauss) [in COMMON /WRKVLU/] 
Particle speed as fraction of light speed (P = v/c where c is speed of light) 
Control variable for reducing step size if error has occurred 
Value of the B((|)) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 
Value of the B(r) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 
Value of the B(6) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 


CF Character variable "F" 

CNAME Character variable (up to 6 characters) identifying magnetic field used 

CR Character variable "R" 

DELACC Change in particle acceleration from previous step 

DISCK Step length control variable to approach boundary at 10 % increments 

DISOUT Distance (in earth radii) for trajectory termination [in COMMON /SNGLR/] 

Radial distance (in earth radii) from current distance to termination boundary 


EDIF 

EMCSQ 

EOMC 

ERAD 

ERADPL 

ERECSQ 


Variation in P allowed before error declared 
Mass energy equivalent for a AMU (0.931 141 GeV) 

Electronic charge divided by relativistic mass energy equivalent (mixed units) 
[in COMMON /WRKVLU/] 

Average radius of the earth in kilometers [in COMMOM /WRKVLU/] 

Polar radius of the earth in km [in COMMON /GEOID/] 

Eccentricity of ellipsoid squared [in COMMON /GEOID/] 


F(6) 


Array of "F" values (velocity and acceleration in program coordinates) 
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FOLD(6) 

FASLAT 

FASLON 

GCLATD 

GDAZD 

GDLATD 

GDZED 

GLOND 

GMA 

GRNDKM 

H 

HB 

HCK 

HCNG 

HMAX 

HOLD 

HSNEK 

HSTART 

I 

L\Z 

ICK 

lERRPT 

IFATE 

INDXPC 

IRT 

IRSLT 

ISALT 

IZE 

KBF 

LIMIT 

LSTEP 

NMAX 

NMIN 

NSTEP 

NSTEPT 

NTRAJC 

P(6) 

PATH 

PC 

PI 

PI02 


[in COMMON AVRKVLU/] 

Array of "F" values (velocity and acceleration) from previous step 
Asymptotic latitude (in degrees) 

Asymptotic longitude (in degrees east of the Greenwich meridian) 


Geocentric latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic azimuth in degrees (measured clockwise from north) 

Geodetic latitude in degrees (+ = north, south = -) [in COMMON /SNGLR/] 
Geodetic zenith in degrees (0 = vertical) 

Geodetic East longitude in degrees (from Greenwich meridian) 

[in COMMON /SNGLR/j 
Relativistic factor (total energy/rest energy) 

Altitude above surface of earth at this latitude (in km) 

Runge-Kutta step size (in seconds) 

Preliminary value of step size for P = 1 
Control to limit step size growth to 20% 

Change of step size from previous step 
Maximum value of step size allowed 
Value of previous Runge-Kutta step size 
Control to approach 90% of distance to boundary 
Starting step size value (deliberately made small) 

Index variable in do loops 

Integer value of azimuth (measured counter clockwise from north) 

Index for checking acceleration growth 

Integer control for printing diagnostics (normally set to 0) 

Integer fate of particle trajectory ( 0 = Allowed, 1 = Failed, 2 — Re-entrant 

3 = Failed, but max alt > 6.6 earth radii) 

Index of particle rigidity in MV 

Integer control for writing results (+I = Allowed, 0 = Failed, -1 = Re-entrant) 
Internal result of particle trajectory (+1 = Allowed, 0 = Failed, -1 = Re-entrant) 
Integer value of start altitude (in Im) above earth surface 
Integer value of zenith angle (in degrees) 

Number of failed attempts to trace this trajectory 

Limit of number of steps before trajectory declared "Failed" 

Number of times the step size control reduced to overcome trajectory error 

Number of maxima in complex trajectory path 
Number of minima in complex trajectory path 
Number of steps in current trajectory 

Temporary variable that can be used to print out first 1000 steps 
Number of trajectories in this computer run 

Array of intermediate values used in Runge-Kutta integration 
Total distance of trajectory path from start to termination 
Rigidity of particle (in units of GV) 

Real value of the quantity Pi (~3. 141 5926535) [in COMMON /TRIG/] 

Real value of Pi divided by 2.0 [in COMMON /TRIG/] 
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PSALT 

PTCY2 

PVEL 

R(6) 

RIOOKM 

R120KM 

RAD 

RC106 

RCKBETA 

RENLAT 

RENLON 

REA 

RECK 

RHT 

RYl 

RY2 

RY3 


S(6) 

SALT 

SR2 

TAU 

TBETA 

TCY2 

TCY3 

TENG 

TMS202 

TPS202 

TSTEP 

TSY2 

TSY2SQ 

TSY3 

TUlOO 

VEL 

Y(6) 

YB(6) 

YIO 


Current particle distance from ground (used for re-entrant calculations) 

Absolute value of cosine Y(2) (used in control of polar step size) 

Particle velocity (in earth radii per second) 

Array of intermediate values used in Runge-Kutta integration 

Y(l) distance of 100 km altitude at this latitude 

Y(l) distance of 120 km altitude at this latitude 

Real value of one radian (-57.29578 degrees) [in COMMON /TRIG/] 

Constant in Runge-Kutta integration (1. 0/6.0) 

Current value of particle p after this step 
Latitude of re-entrant particle intersection with atmosphere 
Longitude of re-entrant particle intersection with atmosphere 
Ratio of acceleration magnitude between current step and last step 
Ratio of acceleration component between current step and last step 
Height above geoid where a trajectory re-entered the atmosphere 
Real value of the starting position of the r coordinate in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the theta coordinate in r, 0, (f> coordinates 
[in COMMON /SNGLR/] 

Real value of the starting position of the phi coordinate in r, 0, 4> coordinates 
[in COMMON /SNGLR/] 

Array of intermediate values used in Runge-Kutta integration 
Real value of the starting altitude above the surface of the geoid 
[in COMMON /SNGLR/] 

Runge-Kutta constant (square root of 2.0) 

Time (in seconds) for a trajectory transit from start to termination 
Difference between current value of P and starting value of p 
Trigonometric cosine of the vector theta (0) angle in r, 0, (j) coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi (<|)) angle in r, 0, (j> coordinates 
[in COMMON /SNGLR/] 

Total energy of particle (kinetic energy plus rest mass energy) 

Runge-Kutta constant (2.0 - SR2/2.0) 

Runge-Kutta constant ((2.0 + SR2/2.0) 

Number steps executed in this run 

Trigonometric sine of the vector theta (0) angle in r, 0, (|) coordinates 
[in COMMON /SNGLR/] 

Square of TSY2 

Value of the trigonometric sine of the vector phi ((|)) angle in r, 0, (|) coordinates 
[in COMMON /SNGLR/] 

Time (in seconds) the particle is imder 100 km altitude 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 

Array of "Y" values (position and velocity in r, 0, coordinates) 

[in COMMON /WRKVLU/] 

Array of intermediate values used in Runge-Kutta integration 
Y(l) radial coordinate for re-entrant distance at this latitude 
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YIGC 

Y2GC 

Y3GC 

YDA5 

YMAX 


Starting position r component in geocentric coordinates 
Starting position 6 component in geocentric coordinates 
Starting position ^ component in geocentric coordinates 
Intermediate value for computing asymptotic latitude 
Maximum radial distance attained by trajectory 


ZCHARGE Atomic charge number 

7 PJ) Zenith angle in degrees 


Reference publication: 

Ralston, A, and Wilf, S.H., Mathematical for Digital Computers, JohnWiley and Sons, New 

York, 1960. 
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Subroutine FGRADA 

This subroutine calculates the V X B force on the charged particle. This is a slight modification of the 
standard FGRAD subroutine adapted to call subroutine ALLMAG to calculate the magnetic field vectors 
The version of ALLMAG included in this software is an update from the earlier version in the reference. 


Arguments in call statement : none. All in labeled common 


T.abeled Common arguments : 

Block name: /WRKVLU/ 

Arguments in block F(6), Y(6), ERAD, EOMC, VEL, BR, BT, BP 
F(6) Array of force and acceleration vectors 

Y(6) Array of position and velocity vectors 

ERAD Average radius of the earth in kilometers 

EOMC Electronic charge divided by relativistic mass energy equivalent (mixed units) 

VEL Particle velocity in earth radii per second 

BP Value of the B((t>) magnetic field vector (in units of Gauss) 

BR Value of the B(r) magnetic field vector (in units of Gauss) 

BT Value of the B(0) magnetic field vector (in units of Gauss) 


Block name: 
Arguments in block 
TSY2 
TCY2 
TSY3 
TCY3 


AVRKTSC/ 

TSY2, TCY2, TSY3, TCY3 
Sine of the Y(2) coordinate (theta coordinate) 
Cosine of the Y(2) coordinate (theta coordinate) 
Sine of the Y(3) coordinate (phi coordinate) 
Cosine of the Y(3) coordinate (phi coordinate) 


Subroutines called: 

ALLMAG (MODEL, TM,RKM,TSY2,TCY2,TSY3,TCY3,BR.BT,BP3) _ 

MODEL Integer designating the magnetic field model (14 - IGRF95) 
jlvi Decimal value designating the epoch of the magnetic field 

year (including decimal fi'action of year) 

RKM Radial distance of particle from geocenter in km. 

TSY2 Sine of the theta (0) coordinate 

TCY2 Cosine of the theta (0) coordinate 

TSY3 Sine of the phi ((|)) coordinate 

TCY3 Cosine of the phi (<|)) coordinate 

BR Value of the B(r) magnetic field vector (in units of Gauss) 

BT Value of the B(0) magnetic field vector (in units of Gauss) 

BP Value of the B((j>) magnetic field vector (in units of Gauss) 

B Magnitude of the magnetic field (in Gauss) 


Data files: none 
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Output files : none 


Program Operation : 

When this subroutine is called, the force vectors, ((F(l), F(2), F(3)) are defined. Then for 
compatibility with the standard ALLMAG call statement the epoch of the magnetic field and the magnetic 
field model are specified, the sine and cosine of the Y(2) and Y(3) coordinates (the 0 and (j) coordinates) 
are calculated, and the radial distance (in km) determined. The call to subroutine ALLMAG obtains the 
magnetic field vectors (BR, BT, BP) at the particle position. Then the acceleration vectors (F(4), F(5), 
F(6)) are calculated. 


Listing of all variables in subroutine FGRADA in program TJALLMAG 

B Magnitude of the magnetic field (in Gauss) [in COMMON AYRKVLU/] 

BP Value of the B(([)) magnetic field vector (in Gauss) [in COMMON AVRKVLLF/] 

BR Value of the B(r) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 

BT Value of the B(0) magnetic field vector (in Gauss) [in COMMON AVRKVLU/] 


EOMC 

ERAD 

F(6) 

MODEL 

RKM 

SQY6 

TAY2 

TCY2 

TCY3 

TM 

TSY2 

TSY3 

VEL 

Y(6) 


Electronic charge divided by relativistic mass energy equivalent (mixed units) 
[in COMMON /WRKVLU/] 

Average radius of the earth in kilometers [in COMMOM /WRKVLU/] 

Array of "F" values (velocity and acceleration in program coordinates) 

[in COMMON /WRKVLU/] 

Integer designating the magnetic field model used in subroutine ALLMAG 

(needed for compatibility with standard call to subroutine ALLMAG) 

Radial distance of particle from geocenter in km. 

(needed for compatibility with standard call to subroutine ALLMAG) 

Intermediate term (Y6)*Y(6)/Y(l) 

Intermediate term TSY2/TSC2 

Trigonometric cosine of the vector theta angle in r, 0, (J> coordinates 
[in COMMON /SNGLR/] 

Trigonometric cosine of the vector phi angle in r, 0, (|) coordinates 
[in COMMON /SNGLR/] 

Decimal value designating the epoch of the magnetic field 
year (including decimal fraction of year) 

Trigonometric sine of the vector theta (0) angle in r, 0, ^ coordinates 
[in COMMON /SNGLR/] 

Trigonometric sine of the vector phi (([)) angle in r, 0, <|) coordinates 
[in COMMON /SNGLR/] 

Particle velocity in earth radii per second [in COMMON /WRKVLU/] 

Array of "Y" values (position and velocity in r, 0, <|) coordinates) 

[in COMMON /WRKVLU/] 
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Y50Y1 Intermediate term Y(5)A^(1) 


Reference publication: 

AT T MAG. or-A/T MG T.T>JTRA: Commuter Programs For Geo magnetic Field And Field-Line 
Calculations. E.G. Stassinopulous and G.D. Mead, NSSDC 72-12, February 1972, NASA, GFSC, 
Greenbelt MD. 
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Subroutine ALLMAG (MODEL, TM,RKM, ST, CT,SPH,CPH,BR,BT,BP,B) 

This magnetic field subroutine is the NASA NSSDC ALLMAG software which has the option of 
using a number of magnetic field models. This version sets the variable MODEL to 14, which specifies 
the IGRF95 model of the earth's magnetic field. The variable TM specifies the epoch of the magnetic 
field expansion. The FORTRAN coding in this subroutine is unchanged from that received from NASA^ 
The use of this NASA version of ALLMAG results in a slight deviation from the convention used in the 
FORTRAN software coding used elsewhere in this software assembly. In the previous subroutines, 
variables beginning with the character "C" are used exclusively to denote character variables In this 
subroutine variables beginning with the character "C" are used, primanly to denote cosine and co-latitude, 
and also intermediate terms in the computation. In this subroutine the array "G"(13,13) has an 
equivalence set of variables and can be addressed as either real or integer. 

When this subroutine is called, it first determines the model to be used and the epoch of the ni^el to 
be evaluated. It then derives the magnetic field coefficients and normalizes the selected model coefficient 
for fast computation. Then it loads the normalized and ordered coefficients into the G arrays for magnetic 
field evaluation and initiates a serial computation where each term is the denvative of the pervious term 
to evaluate the magnetic field model at the specified position. 

This technique is about 30 percent slower in execution speed than the streamlined model specific 
code used in the TJI95 program, but is much more versatile in the ability to select different magnetic tield 

models for any specified epoch. 


Arguments in call statement : i / . _ 

MODEL Integer designating the magnetic field model (14 - IGRP95) 

TM Decimal value designating the epoch of the magnetic field 

year (including decimal fraction of year) 

RKM Radial distance of particle from geocenter in km. 

ST Sine of the theta (0) coordinate 

CT Cosine of the theta (6) coordinate 

SPH Sine of the phi ((|)) coordinate 

CPH Cosine of the phi (cj)) coordinate 

gR Value of the B(r) magnetic field vector (in units of Gauss) 

BT Value of the B(0) magnetic field vector (in units of Gauss) 

BP Value of the B(4)) magnetic field vector (in units of Gauss) 

B Magnitude of the magnetic field (in Gauss) 


Labeled Common arguments : (designed to be used with other software) 
Block name: /TRAJAC/ 

Arguments in block CONSTEM, T, FILENAM 


Block name: /DIPOLE/ 

Arguments in block WLONG, COLAT, EM 


Dimensioned variables: 

TO(14), NMX(14), 


ISUM(14,3), G(13,13) LSUM(14,3), 
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TO(14) 

NMX(14) 

ISUM(14,3) 

LSUM(14,3) 


Array of the epoch years for the various magnetic field models 
The order of the field expansion for each field model 
Check of the coefficients in data statement 
Normalized coefficients ordered for fast serial computation 
Check sums for the various models 


Note that the following variables are REAL*4: 

GG(13,13,14), GGT(13,13,14), GGTT(13,13,14), SHMIT(13,13) 


Note that the following variables are INTEGER*4; 

Gl(13,13), GT1(13,13), GTT1(13,13) 

G2(13,13), GT2(13,13), GTT2(13,13) 

G3(13,13), GT3(13,13), GTT3(13,13) 

G4(13,13), GT4(13,13), GTT4(13,13) 

G5(13,13), GT5(13,13), GTT5(13,13) 

G6(13,13), GT6(13,13), GTT6(13,13) 

G7(13,13), GT7(13,13), GTT7(13,13) 

G8(13,13), GT8(13,13), GTT8(13,13) 

G9(13,13), GT9(13,13), GTT9(13,13) 

G10(13,13), GT10(13,13), GTT10(13,13) 

Gll(13,13), GTl 1(13,13), GTT11(13, 13) 

G12(13,13), GT12(13,13), GTT12(13,13) 

G13(13,13), GT13(13,13), GTT13(13,13) 

G14(13,13), GT14(13,13), GTT14(13,13) 

LG(13,13,14), LGT(13,13,14), LGTT(13, 13,14) 

Word of caution. We have found that on some of the old SGI machines, the FORTRAN compile cannot 
accept the equivalence statement used in this subroutine. 


Program Operation : 

This subroutine is designed for computation of the earth's main magnetic field. This procedure 
expands the terms into FORTRAN coding (resulting in pages and pages of FORTRAN code) and then 
evaluates the normalized field coefficients. The result of this serial expansion is much faster than the 
recursion method which is much more compact in program size but requires the expansion of the 
Legender polynomials each time the subroutine is called. 

When this subroutine is called, it first determines the model to be used and the epoch of the model to 
be evaluated. It then derives the magnetic field coefficients from the specified data statement and adjusts 
the epoch year by the time derivative in the data statements and generates normalized, ordered 
coefficients. (A byproduct of the magnetic field evaluation is the determination of the dipole magnitude, 
the position of the north magnetic dipole axis, and the offset of the dipole position from the geocenter.) 
Then it loads the normalized and ordered coefficients into the G arrays for magnetic field evaluation. It 
then determines the value of the AR variable; AR is reciprocal of the radial distance in earth radii. Each 
order of the field expansion requires an evaluation of AR’^ where N is the order of the field expansion. 
(The N = 1 term, a description of a monopole magnetic field, is zero.) The first magnetic field evaluation 
designated by N = 2 is the dipole field component. Each subsequent order of expansion evaluates the 
contribution of the next order and adds this to the contribution of the previous orders^. The final 
computation converts the magnetic field vectors to units of Gauss. (One Gauss — 10 Nt). 



Final Report Grant NAG5-8009, Section II, Part3, TJALLMAG Program Description 


91 


See the publication AT, I MAG. GCAZLMG, LINTRA: Commuter P rogra ms For Geomagnetic Field A nd 
Field-Line Calculations. E.G. Stassinopulous and G.D. Mead, NSSDC 72-12, February 1972, NASA, 
GFSC, Greenbelt MD, for more details. 


Magnetic Field Models 


Model # 

Identification 



1 

HENDRICKS & CAIN GSFC 

99-TERM 

9/65 

2 

CAIN ET AL. GSFC 

120-TERM 

12/6 

3 

CAIN & LANGEL POGO 

143-TERM 

10/68 

4 

CAIN + SWEENEY POGO 

120-TERM 

8/69 

5 

IGRF 1965.0 

80-TERM 

10/68 

6 

LEATON, MALIN & EVANS, 1965 

80-TERM 


7 

HURWITZ (US COAST & GEODETIC) 

168-TERM 


8 

IGRF 1980 

168-TERM 


9 

IGRF 1975 

80-TERM 


10 

BARRACLOUGH 

168-TERM 


11 

AWC 

168-TERM 


12 

IGRF 1985 

168-TERM 


13 

IGRF 1990 

168-TERM 


14 

IGRF 1995 

168-TERM 



EPOCH 1960 
EPOCH 1960 
EPOCH 1960 
EPOCH 1960 
EPOCH 1965 
EPOCH 1965 
EPOCH 1970 
EPOCH 1980 
EPOCH 1975 
EPOCH 1975 
EPOCH 1975 
EPOCH 1985 
EPOCH 1990 
EPOCH 1995 


Listing of variables in subroutine ALLMAG 

Temporary value of radial distance (in earth radii) to the N power 

AR 1 .0/Radial distance (in earth radii) 


Magnitude of the magnetic field (in Gauss) [in COMMON /WRKVLU/] 

Value of the B((|)) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 
Value of the B(r) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 
Value of the B(0) magnetic field vector (in Gauss) [in COMMON /WRKVLU/] 


CIO 

Cll 

C12 

C13 

C2 

C3 

C4 

C5 

C6 

C7 

C8 

C9 


Intermediate value (N— 10) in magnetic field expansion 
Intermediate value (N=l 1) in magnetic field expansion 
Intermediate value (N=12) in magnetic field expansion 
Intermediate value (N=13) in magnetic field expansion 
Intermediate value (N=2) in magnetic field expansion 
Intermediate value (N=3) in magnetic field expansion 
Intermediate value (N=4) in magnetic field expansion 
Intermediate value (N=5) in magnetic field expansion 
Intermediate value (N=6) in magnetic field expansion 
Intermediate value (N=7) in magnetic field expansion 
Intermediate value (N=8) in magnetic field expansion 
Intermediate value (N=9) in magnetic field expansion 


COLAT Co-latitude of the north dipole axis 

CONSTEM Magnitude of the dipole term 


CPIO 

CPU 

CPU 


Trigonometric cosine function for the PIO term 
Trigonometric cosine function for the PI 1 term 
Trigonometric cosine function for the P 12 term 
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CP13 

Trigonometric cosine function for the P 1 3 term 

CP2 

Trigonometric cosine function for the P2 term 

CP3 

Trigonometric cosine function for the P3 term 

CP4 

Trigonometric cosine function for the P4 term 

CPS 

Trigonometric cosine function for the P5 term 

CP6 

Trigonometric cosine function for the P6 term 

CP7 

Trigonometric cosine function for the P7 term 

CPS 

Trigonometric cosine function for the P8 term 

CP9 

Trigonometric cosine function for the P9 term 

CP 

Cosine of the phi coordinate 

CT 

Cosine of the theta coordinate 

DPIOI 

Derivative of the polynomial (10,1) term 

DPIOIO 

Derivative of the polynomial (10,10) term 

DP 102 

Derivative of the polynomial (10,2) term 

DP103 

Derivative of the polynomial (10,3) term 

DP 104 

Derivative of the polynomial (10,4) term 

DP 105 

Derivative of the polynomial (10,5) term 

DP106 

Derivative of the polynomial (10,6) term 

DP 107 

Derivative of the polynomial (10,7) term 

DP108 

Derivative of the polynomial (10,8) term 

DP 109 

Derivative of the polynomial (10,9) term 

DPI 11 

Derivative of the polynomial (11,1) term 

DPI no 

Derivative of the polynomial (1 1,10) term 

DPllll 

Derivative of the polynomial (11,11) term 

DPI 12 

Derivative of the polynomial (1 1,2 term 

DPI 13 

Derivative of the polynomial (1 1,3 term 

DPI 14 

Derivative of the polynomial (1 1,4) term 

DPI 15 

Derivative of the polynomial (1 1,5) term 

DPI 16 

Derivative of the polynomial (1 1,6) term 

DPI 17 

Derivative of the polynomial (1 1,7) term 

DP118 

Derivative of the polynomial (1 1,8) term 

DPI 19 

Derivative of the polynomial (1 1,9) term 

DP21 

Derivative of the polynomial (2,1) term 

DP22 

Derivative of the polynomial (2,2) term 

DP31 

Derivative of the polynomial (3,1) term 

DP32 

Derivative of the polynomial (3,2) term 

DP33 

Derivative of the polynomial (3,3) term 

DP41 

Derivative of the polynomial (4,1) term 

DP42 

Derivative of the polynomial (4,2) term 

DP43 

Derivative of the polynomial (4,3) term 

DP44 

Derivative of the polynomial (4,4) term 

DP51 

Derivative of the polynomial (5,1) term 

DP52 

Derivative of the polynomial (5,2) term 

DP53 

Derivative of the polynomial (5,3) term 

DP54 

Derivative of the polynomial (5,4) term 

DP55 

Derivative of the polynomial (5,5) term 

DP61 

Derivative of the polynomial (6,1) term 

DP62 

Derivative of the polynomial (6,2) term 

DP63 

Derivative of the polynomial (6,3) term 
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DP64 

DP65 

DP66 

DP71 

DP72 

DP73 

DP74 

DP75 

DP76 

DP77 

DP81 

DP82 

DP83 

DP84 

DP85 

DP86 

DP87 

DP88 

DP91 

DP92 

DP93 

DP94 

DP95 

DP96 

DP97 

DP98 

DP99 

FILENAM 

G(13,13) 

I 

JJ 

K 

L 

M 

MODOLD 

N 

PlOl 

PlOlO 

PI 02 

P103 

P104 

P105 


Derivative of the polynomial (6,4) term 
Derivative of the polynomial (6,5) term 
Derivative of the polynomial (6,6) term 
Derivative of the polynomial (7,1) term 
Derivative of the polynomial (7,2) term 
Derivative of the polynomial (7,3) term 
Derivative of the polynomial (7,4) term 
Derivative of the polynomial (7,5) term 
Derivative of the polynomial (7,6) term 
Derivative of the polynomial (7,7) term 
Derivative of the polynomial (8,1) term 
Derivative of the polynomial (8,2) term 
Derivative of the polynomial (8,3) term 
Derivative of the polynomial (8,4) term 
Derivative of the polynomial (8,5) term 
Derivative of the polynomial (8,6) term 
Derivative of the polynomial (8,7) term 
Derivative of the polynomial (8,8) term 
Derivative of the polynomial (9,1) term 
Derivative of the polynomial (9,2) term 
Derivative of the polynomial (9,3) term 
Derivative of the polynomial (9,4) term 
Derivative of the polynomial (9,5) term 
Derivative of the polynomial (9,6) term 
Derivative of the polynomial (9,7) term 
Derivative of the polynomial (9,8) term 
Derivative of the polynomial (9,9) term 

Externally provided identification 

Array of normalized magnetic field coefficients ordered for fast computation 
Index in do loops 

Integer control parameter for loading coefficients 
Index in do loops 

Intermediate index for data checking 

Intermediate index for data checking 
Integer control variable for model changing 

Index in specifying degree and order of magnetic field expansion 

Polynomial (10,1) term 
Polynomial (10,10) term 
Polynomial (10,2) term 
Polynomial (10,3) term 
Polynomial (10,4) term 
Polynomial (10,5) term 
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P106 

P107 

P108 

P109 

Pill 

Pino 

Pllll 

P112 

P113 

P114 

P115 

P116 

PI 17 

P118 

P119 

P21 

P22 

P31 

P32 

P33 

P41 

P42 

P43 

P44 

P51 

P52 

P53 

P54 

P55 

P61 

P62 

P63 

P64 

P65 

P66 

P71 

P72 

P73 

P74 

P75 

P76 

P77 

P81 

P82 

P83 

P84 

P85 

P86 

P87 

P88 

P91 


Polynomial (10,6) term 
Polynomial (10,7) term 
Polynomial (10,8) term 
Polynomial (10,9) term 
Polynomial (11,1) term 
Polynomial (11,10) term 
Polynomial (11,11) term 
Polynomial (1 1,2 term 
Polynomial (11,3 term 
Polynomial (1 1,4) term 
Polynomial (11,5) term 
Polynomial (1 1,6) term 
Polynomial (11,7) term 
Polynomial (11,8) term 
Polynomial (11,9) term 
Polynomial (2,1) term 
Polynomial (2,2) term 
Polynomial (3,1) term 
Polynomial (3,2) term 
Polynomial (3,3) term 
Polynomial (4,1) term 
Polynomial (4,2) term 
Polynomial (4,3) term 
Polynomial (4,4) term 
Polynomial (5,1) term 
Polynomial (5,2) term 
Polynomial (5,3) term 
Polynomial (5,4) term 
Polynomial (5,5) term 
Polynomial (6,1) term 
Polynomial (6,2) term 
Polynomial (6,3) term 
Polynomial (6,4) term 
Polynomial (6,5) term 
Polynomial (6,6) term 
Polynomial (7,1) term 
Polynomial (7,2) term 
Polynomial (7,3) term 
Polynomial (7,4) term 
Polynomial (7,5) term 
Polynomial (7,6) term 
Polynomial (7,7) term 
Polynomial (8,1) term 
Polynomial (8,2) term 
Polynomial (8,3) term 
Polynomial (8,4) term 
Polynomial (8,5) term 
Polynomial (8,6) term 
Polynomial (8,7) term 
Polynomial (8,8) term 
Polynomial (9,1) term 
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P92 

Polynomial (9,2) term 

P93 

Polynomial (9,3) term 

P94 

Polynomial (9,4) term 

P95 

Polynomial (9,5) term 

P96 

Polynomial (9,6) term 

P97 

Polynomial (9,7) term 

P98 

Polynomial (9,8) term 

P99 

Polynomial (9,9) term 

SHMIT 

Array of coefficients from model data statements 

SPIO 

Trigonometric sine function for the PIO term 

SPll 

Trigonometric sine function for the P 1 1 term 

SP2 

Trigonometric sine function for the P2 term 

SP3 

Trigonometric sine function for the P3 term 

SP4 

Trigonometric sine function for the P4 term 

SP5 

Trigonometric sine function for the P5 term 

SP6 

Trigonometric sine function for the P6 term 

SP7 

Trigonometric sine function for the P7 term 

SP8 

Trigonometric sine function for the P8 term 

SP9 

Trigonometric sine function for the P9 term 

SPH 

Sine of the phi coordinate 

ST 

Sine of the theta coordinate 

T 

Difference in decimal years between specified epoch and n 

TO 

Reference year for the specified magnetic field model 

TM 

Time (decimal year) for the selected magnetic field model 
to be evaluated. 

TMOLD 

Year of the previous magnetic field model used 

WLONG 

West longitude of dipole axis 


Reference publications: 

AT T MAG. GCAZLMG. LINTRA: Commuter Programs Fo r Geomagnetic Field And Field-Lin e 
Calculations. E.G. Stassinopulous and G.D. Mead, NSSDC 72-12, February 1972, NASA, GFSC, 
Greenbelt MD. 

Computation of the Main Geomagnetic F i eld for Spherical Harmonic Expansion, Data Users Note 
NSSDC 68-1 1, February 1968, NSDC, NASA, GFSC, Greenbelt MD. 
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Example of Program TJI95T Execution. 

This example contains the following: 

A TAPEl input data file. 

A RUN.DOC which illustrates the on-screen displays as the program executes. 

A TAPE? output file (sorted to remove the duplicate trajectories). 

A TAPES output file (exactly as generated during the computer run). 

This example is an illustration of an attempt to determine the vertical cutoff rigidity of a balloon 
launching location in the US. Specifically Palestine Texas coordinates 3 1.78 degrees North 
latitude and 264.37 East Longitude. (Remember that all longitudes are measured east from the 
Greenwich meridian.) 

The TAPEl data input file contains three data lines. The first data line initially specifies a search 
at 1 GV intervals beginning at 20 GV. The second data line specifies a search at 0.1 GV intervals 
beginning at 8 GV for n trajectories. The third data line specifies a search at 0.01 GV intervals 
beginning at 5.5 GV for n trajectories. The result of this execution generates a TAPE? data file to 
be evaluated. Note that there are initially simple trajectories that complete in 65 steps. As the 
rigidity decreases, the number of steps increases and the first re-entrant trajectory occurs at a 
rigidity of 4.61 GV. Between 4.62 GV and 3.75 GV there is the complex structure of the cosmic 
ray penumbra with its allowed and forbidden structure. At rigidities of 3.74 GV and below, all 
charged particles fail to reach interplanetary space. 

The summary of this run is Ru = 4.62 GV, Rl = 3.75 GV, the effective cutoff is Rc ~ 4.26 GV 
and the penumbra was computed to be 0.87 GV wide in the vertical direction. 


This is the TAPEl data input file. 

Note the identification conunents after the negative rigidity termination value. 


31.78 264.37 20.00 

0.00 

0.00 

1 . 00 

16 0 1 

31.78 264.37 8.00 

0.00 

0.00 

0.10 

50 0 2 

31.70 264.37 5.50 

0.00 

0.00 

0.01 

250 0 3 

-99.99 





123456781234567812345678123456781234567812345678123456781234567812345678 

Lat Lon Riq 

Zen 

Az 

DelPc 

Ndo lerrpt Indx 

123456789012345678901234567890123456789012345678901234567890123456789012 

1 2 

3 

4 

5 

6 7 


This is the 

" on- 

line” 

output as 

the 

progreim 

execu 

TAPE 1 

31.78 

264.37 

20.00 

0.00 

0.00 

1.00 

16 

0 

1 

TAPE 1 

31.78 

264.37 

8.00 

0.00 

0.00 

0.10 

50 

0 

2 

TAPE 1 

31.78 

264.37 

5.50 

0.00 

0.00 

0 . 01 

250 

0 

3 


END OF DATA INPUT (NEGATIVE VALUE READ IN) 


TOTAL NUMBER OF STEPS 311048. 

TOTAL NUMBER OF TRAJECTORIES 316 


End program TJI95T 
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This is the TAPE? output file. 


Lat 

Long 

Rig 

Zen 

Az 

31.78 

264.37 

20.000 

0.0 

0 . 0 

31.78 

264.37 

19.000 

0.0 

0.0 

31.78 

264.37 

18.000 

0.0 

0.0 

31.78 

264 . 37 

17 . 000 

0 . 0 

0.0 

31.78 

264.37 

16.000 

0 . 0 

0.0 

31.78 

264.37 

15.000 

0.0 

0.0 

31.78 

264.37 

14 . 000 

0.0 

0.0 

31.78 

264.37 

13.000 

0 . 0 

0.0 

31.78 

264.37 

12 . 000 

0.0 

0.0 

31.78 

264.37 

11.000 

0.0 

0.0 

31.78 

264.37 

10.000 

0.0 

0.0 

31.78 

264.37 

9.000 

0.0 

0.0 

31.78 

264.37 

8.000 

0.0 

0.0 

31 . 78 

264.37 

7.900 

0.0 

0 . 0 

31 . 78 

264.37 

7 . 800 

0.0 

0 . 0 

31.78 

264.37 

7.700 

0.0 

0.0 

31.78 

264.37 

7.600 

0.0 

0.0 

31 . 78 

264.37 

7.500 

0 . 0 

0.0 

31.78 

264.37 

7.400 

0.0 

0.0 

31.78 

264.37 

7.300 

0 . 0 

0.0 

31.78 

264.37 

7.200 

0.0 

0.0 

31.78 

264.37 

7.100 

0.0 

0.0 

31.78 

264.37 

7.000 

0.0 

0.0 

31.78 

264.37 

6.900 

0.0 

0.0 

31.78 

264.37 

6.800 

0.0 

0.0 

31.78 

264.37 

6.700 

0.0 

0.0 

31.78 

264.37 

6,600 

0.0 

0.0 

31.78 

264.37 

6,500 

0.0 

0.0 

31 . 78 

264.37 

6.400 

0.0 

0.0 

31.78 

264.37 

6.300 

0.0 

0.0 

31.78 

264.37 

6.200 

0.0 

0 . 0 

31.78 

264 . 37 

6 . 100 

0.0 

0 . 0 

31.78 

264.37 

6.000 

0.0 

0.0 

31.78 

264.37 

5.900 

0.0 

0.0 

31 . 78 

264.37 

5.800 

0.0 

0.0 

31 . 78 

264.37 

5.700 

0.0 

0.0 

31.78 

264.37 

5.600 

0.0 

0.0 

31.78 

264,37 

5.500 

0.0 

0.0 

31.78 

264.37 

5.490 

0.0 

0.0 

31.78 

264.37 

5.480 

0.0 

0.0 

31.78 

264.37 

5 .470 

0.0 

0.0 

31 . 78 

264.37 

5.460 

0.0 

0.0 

31.78 

264.37 

5.450 

0.0 

0.0 

31.78 

264.37 

5.440 

0.0 

0.0 

31.78 

264.37 

5.430 

0.0 

0.0 

31.78 

264.37 

5.420 

0.0 

0.0 

31 . 78 

264.37 

5.410 

0.0 

0.0 

31.78 

264.37 

5 .400 

0 . 0 

0 . 0 

31 . 78 

264.37 

5.390 

0.0 

0.0 

31 . 78 

264.37 

5.380 

0.0 

0.0 

31 . 78 

264.37 

5.370 

0.0 

0,0 

31.78 

264.37 

5.360 

0.0 

0.0 

31.78 

264.37 

5.350 

0.0 

0.0 

31.78 

264.37 

5.340 

0.0 

0.0 

31 . 78 

264.37 

5.330 

0.0 

0.0 

31.78 

264.37 

5.320 

0.0 

0.0 

31.78 

264.37 

5.310 

0.0 

0.0 

31.78 

264 . 37 

5.300 

0.0 

0.0 

31.78 

264.37 

5.290 

0 . 0 

0.0 

31.78 

264.37 

5.280 

0 . 0 

0.0 

31.78 

264.37 

5.270 

0 . 0 

0.0 

31 . 78 

264.37 

5,260 

0 . 0 

0.0 

31.78 

264.37 

5.250 

0 . 0 

0.0 


Alt ALat 

ALon 

Nstep 

Fate 

ID 

20 - 5.24 

313.32 

65 

0 

195 

20 - 7.71 

314 . 82 

63 

0 

195 

20 - 10.38 

316.46 

65 

0 

195 

20 - 13.23 

318.28 

68 

0 

195 

20 - 16.25 

320.34 

71 

0 

195 

20 - 19.38 

322.70 

74 

0 

195 

20 - 22.52 

325,47 

77 

0 

195 

20 - 25.48 

328.74 

81 

0 

195 

20 - 27.97 

332.62 

86 

0 

195 

20 - 29.57 

337 . 09 

91 

0 

195 

20 - 29.79 

342.01 

98 

0 

195 

20 - 28.23 

347.18 

106 

0 

195 

20 - 24.80 

353.07 

115 

0 

195 

20 - 24.36 

353.77 

116 

0 

195 

20 - 23.91 

354.50 

118 

0 

195 

20 - 23.43 

355.27 

118 

0 

195 

20 - 22.94 

356* 09 

119 

0 

195 

20 - 22.43 

356.95 

123 

0 

195 

20 - 21.90 

357 . 88 

124 

0 

195 

20 - 21.36 

358.87 

126 

0 

195 

20 - 20.79 

359.93 

125 

0 

195 

20 - 20.19 

1.07 

125 

0 

195 

20 - 19.57 

2.30 

127 

0 

195 

20 - 18.91 

3.63 

129 

0 

195 

20 - 18.22 

5.07 

129 

0 

195 

20 - 17.48 

6.63 

132 

0 

195 

20 - 16.69 

8.33 

132 

0 

195 

20 - 15.83 

10.18 

134 

0 

195 

20 - 14.89 

12.19 

136 

0 

195 

20 - 13.85 

14 .38 

138 

0 

195 

20 - 12.68 

16.76 

141 

0 

195 

20 - 11.35 

19.37 

143 

0 

195 

20 - 9.82 

22 . 22 

143 

0 

195 

20 - 8,05 

25.33 

146 

0 

195 

20 - 5.96 

28.75 

148 

0 

195 

20 - 3.50 

32.51 

151 

0 

195 

20 - 0.56 

36.69 

155 

0 

195 

20 2.95 

41.40 

156 

0 

195 

20 3.33 

41 . 91 

156 

0 

195 

20 3,73 

42.42 

158 

0 

195 

20 4.13 

42.94 

158 

0 

195 

20 4.54 

43.47 

158 

0 

195 

20 4.95 

44.01 

158 

0 

195 

20 5.37 

44 . 56 

159 

0 

195 

20 5.80 

45.11 

159 

0 

195 

20 6.24 

45.68 

158 

0 

195 

20 6.68 

46.25 

160 

0 

195 

20 7.14 

46.84 

160 

0 

195 

20 7.60 

47.43 

161 

0 

195 

20 8.07 

46.04 

161 

0 

195 

20 8,54 

48.65 

162 

0 

195 

20 9.02 

49.28 

162 

0 

195 

20 9.52 

49.92 

162 

0 

195 

20 10.02 

50.58 

162 

0 

195 

20 10.52 

51.25 

163 

0 

195 

20 11.04 

51.93 

163 

0 

195 

20 11.56 

52.63 

165 

0 

195 

20 12.09 

53.35 

165 

0 

195 

20 12.63 

54.08 

165 

0 

195 

20 13.18 

54 . 83 

165 

0 

195 

20 13.73 

55.60 

166 

0 

195 

20 14.29 

56.39 

166 

0 

195 

20 14.86 

57.21 

168 

0 

195 
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Lat 

Long 

Rig 

Zen 

Az 

31.78 

264.37 

5.240 

0.0 

0.0 

31.78 

264.37 

5.230 

0.0 

0.0 

31.78 

264.37 

5.220 

0.0 

0.0 

31.78 

264.37 

5.210 

0.0 

0.0 

31.78 

264.37 

5.200 

0.0 

0.0 

31.78 

264.37 

5.190 

0.0 

0.0 

31.78 

264.37 

5.180 

0.0 

0.0 

31.78 

264.37 

5.170 

0.0 

0.0 

31.78 

264.37 

5.160 

0.0 

0.0 

31.78 

264.37 

5.150 

0.0 

0.0 

31.78 

264.37 

5.140 

0.0 

0.0 

31.78 

264.37 

5.130 

0.0 

0.0 

31.78 

264.37 

5.120 

0.0 

0.0 

31.78 

264.37 

5.110 

0.0 

0.0 

31.78 

264.37 

5.100 

0.0 

0.0 

31.78 

264.37 

5.090 

0 . 0 

0.0 

31.78 

264.37 

5.080 

0.0 

0.0 

31.78 

264.37 

5.070 

0.0 

0.0 

31.78 

264.37 

5.060 

0 . 0 

0.0 

31.78 

264.37 

5.050 

0 . 0 

0.0 

31.78 

264.37 

5.040 

0.0 

0.0 

31 . 78 

264.37 

5.030 

0.0 

0.0 

31 . 78 

264.37 

5.020 

0.0 

0.0 

31.78 

264.37 

5.010 

0.0 

0.0 

31.78 

264.37 

5 . 000 

0 . 0 

0 . 0 

31.78 

264.37 

4.990 

0.0 

0.0 

31.78 

264.37 

4.980 

0.0 

0.0 

31.78 

264.37 

4.970 

0.0 

0.0 

31.78 

264.37 

4.960 

0.0 

0.0 

31.78 

264.37 

4.950 

0.0 

0.0 

31.78 

264.37 

4 . 940 

0.0 

0.0 

31.78 

264.37 

4.930 

0.0 

0.0 

31.78 

264.37 

4.920 

0.0 

0.0 

31.78 

264.37 

4.910 

0.0 

0.0 

31.78 

264.37 

4.900 

0.0 

0.0 

31.78 

264.37 

4.890 

0.0 

0.0 

31.78 

264.37 

4.880 

0.0 

0.0 

31.78 

264.37 

4.870 

0.0 

0.0 

31.78 

264.37 

4.860 

0.0 

0.0 

31.78 

264.37 

4.850 

0.0 

0.0 

31.78 

264.37 

4.840 

0.0 

0.0 

31.78 

264.37 

4.830 

0.0 

0.0 

31.78 

264.37 

4.820 

0.0 

0.0 

31.78 

264.37 

4.810 

0 . 0 

0.0 

31.78 

264.37 

4 . 800 

0 . 0 

0 . 0 

31.78 

264.37 

4.790 

0.0 

0.0 

31.78 

264.37 

4 . 780 

0.0 

0.0 

31.78 

264.37 

4.770 

0.0 

0.0 

31.78 

264.37 

4.760 

0 . 0 

0.0 

31.78 

264.37 

4.750 

0.0 

0.0 

31.78 

264.37 

4 . 740 

0.0 

0.0 

31.78 

264.37 

4 . 730 

0.0 

0.0 

31.78 

264.37 

4.720 

0 . 0 

0.0 

31.78 

264.37 

4.710 

0 . 0 

0.0 

31.78 

264.37 

4.700 

0.0 

0.0 

31.78 

264.37 

4.690 

0.0 

0 . 0 

31.78 

264 .37 

4.680 

0.0 

0.0 

31.78 

264.37 

4 . 670 

0.0 

0.0 

31.78 

264.37 

4.660 

0 . 0 

0.0 

31 .78 

264.37 

4.650 

0.0 

0.0 

31.78 

264.37 

4.640 

0.0 

0 . 0 

31.78 

264.37 

4.630 

0.0 

0.0 

31.78 

264.37 

4.620 

0.0 

0.0 

31.78 

264.37 

4.610 

0.0 

0.0 

31.78 

264.37 

4.600 

0.0 

0.0 


Alt 

ALat 

ALon 

Nstep 

Fate 

ID 

20 

15.44 

58.04 

169 

0 

195 

20 

16.02 

58.90 

169 

0 

195 

20 

16.60 

59.79 

170 

0 

195 

20 

17.20 

60.70 

169 

0 

195 

20 

17.79 

61.65 

170 

0 

195 

20 

18.39 

62.62 

170 

0 

195 

20 

19.00 

63.63 

171 

0 

195 

20 

19.61 

64.67 

173 

0 

195 

20 

20.21 

65.75 

174 

0 

195 

20 

20.82 

66.88 

173 

0 

195 

20 

21.43 

68.04 

173 

0 

195 

20 

22.03 

69.25 

174 

0 

195 

20 

22.63 

70.52 

176 

0 

195 

20 

23,22 

71 . 83 

177 

0 

195 

20 

23.80 

73.20 

179 

0 

195 

20 

24.37 

74.63 

179 

0 

195 

20 

24.92 

76.13 

178 

0 

195 

20 

25.45 

77.70 

178 

0 

195 

20 

25.95 

79 . 34 

181 

0 

195 

20 

26.43 

81,06 

180 

0 

195 

20 

26.87 

82 . 86 

185 

0 

195 

20 

27.27 

84.75 

184 

0 

195 

20 

27.61 

86.74 

184 

0 

195 

20 

27.90 

88.82 

183 

0 

195 

20 

28.12 

91.01 

185 

0 

195 

20 

28.26 

93.31 

187 

0 

195 

20 

28.30 

95.72 

190 

0 

195 

20 

28.23 

98.25 

191 

0 

195 

20 

28.04 

100 . 90 

191 

0 

195 

20 

27.71 

103.67 

192 

0 

195 

20 

27.20 

106.57 

193 

0 

195 

20 

26.51 

109.60 

193 

0 

195 

20 

25.59 

112.75 

194 

0 

195 

20 

24.42 

116.04 

196 

0 

195 

20 

22.96 

119.46 

197 

0 

195 

20 

21.17 

123.03 

200 

0 

195 

20 

19.01 

126,75 

199 

0 

195 

20 

16.41 

130.66 

199 

0 

195 

20 

13.32 

134 . 81 

200 

0 

195 

20 

9.66 

139,29 

205 

0 

195 

20 

5.36 

144 ,24 

206 

0 

195 

20 

0.36 

149 . 94 

207 

0 

195 

20 

- 5.35 

156.93 

210 

0 

195 

20 

- 11.52 

166.27 

215 

0 

195 

20 

- 17 . 06 

180.21 

220 

0 

195 

20 

- 17.37 

203.45 

226 

0 

195 

20 

4 . 88 

250.24 

248 

0 

195 

20 

- 13.70 

250.39 

335 

0 

195 

20 

- 8.61 

263.29 

564 

0 

195 

20 

- 26.56 

269.82 

461 

0 

195 

20 

12.03 

481.81 

960 

0 

195 

20 

12.32 

216 . 93 

318 

0 

195 

20 

7.00 

154.00 

308 

0 

195 

20 

- 5.88 

162.23 

312 

0 

195 

20 

1.62 

276.29 

367 

0 

195 

20 

18.22 

418.43 

801 

0 

195 

20 

7.75 

159.08 

407 

0 

195 

20 

6.33 

196.92 

439 

0 

195 

20 

12.68 

223 . 97 

494 

0 

195 

20 

0.48 

172.80 

526 

0 

195 

20 

19.34 

199.59 

582 

0 

195 

20 

9.04 

185.56 

634 

0 

195 

20 

19.50 

194 .45 

692 

0 

195 

20 

R 

R 

451 

1 

195 

20 

R 

R 

470 

1 

195 
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Lat 

Long 

31. 

78 

264 . 

37 

31. 

78 

264 . 

37 

31 . 

78 

264 . 

37 

31. 

78 

264 . 

37 

31. 

78 

264 . 

37 

31. 

78 

264. 

37 

31 . 

78 

264 . 

37 

31. 

78 

264 . 

37 

31. 

78 

264 . 

37 

31. 

78 

264 . 

37 

31 . 

78 

264 . 

37 

31. 

78 

264 . 

37 

31. 

78 

264 . 

37 

31. 

78 

264 . 

,37 

31. 

78 

264. 

,37 

31 . 

.78 

264 . 

.37 

31. 

.78 

264. 

.37 

31. 

.78 

264 

.37 

31, 

.78 

264 

.37 

31 

. 78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

. 78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

.78 

264 

.37 

31 

. 78 

264 

.37 


31.78 
31.78 
31.78 
31.78 
31.78 
31.78 
31.78 
31.78 
31 . 78 
31.78 
31.78 


31.78 

31.78 

31.78 

31.78 

31.78 


264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264 .37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 

264.37 


Rig 

Zen 

Az 

4.590 

0.0 

o 

o 

4.580 

o 

o 

o 

o 

4.570 

o 

o 

0.0 

4 .560 

0.0 

o 

o 

4.550 

o 

o 

0.0 

4.540 

0.0 

o 

o 

4.530 

0 . 0 

o 

o 

4.520 

o 

o 

o 

o 

4.510 

o 

o 

o 

o 

4.500 

o 

o 

o 

o 

4 .490 

0.0 

0 . 0 

4 .480 

o 

o 

o 

o 

4 .470 

0.0 

o 

o 

4.460 

o 

o 

o 

o 

4.450 

o 

o 

o 

o 

4.440 

o 

o 

o 

o 

4 .430 

o 

o 

o 

o 

4.420 

o 

o 

o 

o 

4.410 

o 

o 

o 

o 

4 .400 

o 

o 

o 

o 

4.390 

o 

o 

o 

o 

4 .380 

o 

o 

0.0 

4.370 

o 

o 

o 

o 

4.360 

o 

o 

o 

o 

4.350 

o 

o 

o 

o 

4 . 340 

0.0 

o 

o 

4.330 

o 

o 

o 

o 

4.320 

0 . 0 

o 

o 

4 .310 

o 

o 

o 

o 

4.300 

o 

o 

o 

o 

4.290 

o 

o 

o 

o 

4.280 

o 

o 

o 

o 

4.270 

0.0 

0,0 

4.260 

o 

o 

0.0 

4.250 

o 

o 

o 

o 

4.240 

o 

o 

o 

o 

4.230 

o 

o 

o 

o 

4 . 220 

o 

o 

o 

o 

4 . 210 

o 

o 

0.0 

4.200 

o 

o 

o 

o 

4 .190 

0.0 

o 

o 

4 . 180 

o 

o 

o 

o 

4 .170 

o 

o 

o 

o 


4.160 
4.150 
4 . 140 
4.130 
4.120 
4.110 
4.100 
4.090 
4 . 080 
4.070 
4.060 
4 .050 
4 . 040 
4.030 
4.020 
4 . 010 
4 . 000 
3.990 
3 - 980 
3 . 970 
3 .960 
3.950 
3 .940 
3.930 
3 . 920 
3 .910 


Alt 

ALat 

ALon 

Nstep 

20 

R 

R 

483 

20 

8.50 

223.09 

755 

20 15.48 

189.53 

657 

20 14.40 

160.78 

621 

20 • 

-3.44 

375.39 

1127 

20 

4.71 

155.49 

550 

20 18.17 

181.50 

531 

20 

8.38 

587 . 32 

1590 

20 

L2 .49 

226.39 

494 

20 

4.61 

146.56 

458 

20 

15.27 

156.54 

444 

20 

4.04 

359,25 

601 

20 

R 

R 

922 

20 

-4.98 

195.20 

503 

20 

-8.20 

391.59 

834 

20 - 

17.87 

271.53 

416 

20 

8.38 

166.72 

377 

20 

4.88 

145.24 

367 

20 

7.96 

140.45 

363 

20 

12.08 

149.30 

364 

20 

8.32 

179.00 

370 

20 

14.63 

399.09 

833 

20 

2.01 

653.07 

1474 

20 

R 

R 

1098 

20 

3.30 

218.79 

527 

20 - 

■19.57 

329.38 

670 

20 

-6.96 

213.68 

456 . 

20 

R 

R 

3719 

20 

R 

R 

705 

20 

R 

R 

1180 

20 

-8.79 

317.03 

816 

20 

R 

R 

417 

20 

R 

R 

410 

20 

R 

R 

394 

20 

R 

R 

393 

20 

R 

R 

396 

20 

R 

R 

410 

20 

R 

R 

432 

20 

R 

R 

518 

20 

-9.19 

317 . 95 

767 

20 

R 

R 

758 

20 

R 

R 

960 

20 

11.88 

442,61 

672 

20 

-5 . 98 

534.71 

1227 

20 

22 . 85 

791 . 83 

1643 

20 

-4.83 

653.54 

1277 

20 

R 

R 

3366 

20 

R 

R 

2574 

20 

R 

R 

2497 

20 

R 

R 

739 

20 

-5.46 

912.74 

2871 

20 

R 

R 

717 

20 

R 

R 

708 

20 

3.50 

515.42 

1221 

20 

R 

R 

1272 

20 

R 

R 

1859 

20 

R 

R 

2069 

20 

R 

R 

1388 

20 

R 

R 

682 

20 

R 

R 

725 

20 

R 

R 

1426 

20 

R 

R 

1400 

20 

29.93 1170.28 

3323 

20 

13.24 1220.95 

3286 

20 

3.76 832.00 

1887 

20 

R 

R 

1350 

20 

R 

R 

669 

20 

R 

R 

581 

20 

R 

R 

3662 
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31.78 

264.37 

3.900 

31.78 

264.37 

3.890 

31.78 

264.37 

3.880 

31.78 

264.37 

3 . 870 

31.78 

264.37 

3.860 

31.78 

264.37 

3.850 

31.78 

264.37 

3.840 

31.78 

264.37 

3.830 

31.78 

264.37 

3.820 

31.78 

264.37 

3.810 

31.78 

264.37 

3.800 

31.78 

264.37 

3.790 

31.78 

264.37 

3 . 780 

31.78 

264.37 

3.770 

31.78 

264.37 

3.760 

31.78 

264.37 

3,750 

31.78 

264.37 

3 . 740 

31.78 

264.37 

3.730 

31 . 78 

264.37 

3 . 720 

31.78 

264.37 

3.710 

31.78 

264.37 

3,700 

31.78 

264.37 

3.690 

31.78 

264.37 

3.680 

31.78 

264.37 

3 . 670 

31.78 

264.37 

3.660 

31.78 

264.37 

3.650 

31.78 

264.37 

3.640 

31.78 

264.37 

3.630 

31.78 

264.37 

3.620 

31.78 

264.37 

3.610 

31.78 

264.37 

3.600 

31.78 

264.37 

3.590 

31.78 

264.37 

3 . 580 

31.78 

264.37 

3.570 

31 . 78 

264.37 

3.560 

31.78 

264.37 

3.550 

31.78 

264.37 

3.540 

31.78 

264.37 

3.530 

31.78 

264.37 

3.520 

31.78 

264.37 

3.510 

31.78 

264.37 

3.500 

31.78 

264.37 

3.490 

31.78 

264.37 

3.480 

31.78 

264.37 

3.470 

31.78 

264.37 

3.460 

31.78 

264.37 

3.450 

31.78 

264.37 

3 . 440 

31.78 

264.37 

3.430 

31 . 78 

264.37 

3.420 

31.78 

264.37 

3 .410 

31.78 

264.37 

3.400 

31.78 

264.37 

3.390 

31.78 

264.37 

3.380 

31.78 

264.37 

3.370 

31.78 

264.37 

3.360 

31.78 

264.37 

3.350 

31.78 

264.37 

3.340 

31.78 

264.37 

3.330 

31.78 

264.37 

3.320 

31.78 

264.37 

3.310 

31.78 

264.37 

3.300 

31.78 

264.37 

3.290 

31 . 78 

264.37 

3.280 

31 . 78 

264.37 

3.270 

31.78 

264.37 

3.260 

31.78 

264.37 

3.250 


o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

0.0 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

ID 

o 

o 

o 

o 

20 

R 

o 

o 

0.0 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

0 . 0 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

0.0 

o 

o 

20 

R 

0.0 

0.0 

20 

R 

0.0 

o 

o 

20 

R 

0,0 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

0.0 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

0 . 0 

o 

o 

20 

R 

o 

o 

0.0 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

0.0 

20 

R 

0.0 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

0.0 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

0.0 

o 

o 

20 

R 

o 

o 

0.0 

20 

R 

0.0 

o 

o 

20 

R 

0.0 

0.0 

20 

R 

0.0 

0 . 0 

20 

R 

0.0 

0.0 

20 

R 

o 

o 

o 

o 

20 

R 

0 . 0 

o 

o 

20 

R 

o 

o 

0.0 

20 

R 

0.0 

o 

o 

20 

R 

0.0 

0.0 

20 

R 

0.0 

o 

o 

20 

R 

0.0 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

0.0 

o 

o 

20 

R 

0,0 

0.0 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

o 

o 

o 

o 

20 

R 

0 . 0 

o 

o 

20 

R 

0.0 

o 

o 

20 

R 


R 

1151 

1 

195 

R 

2101 

1 

195 

R 

1214 

1 

195 

R 

832 

1 

195 

R 

4138 

1 

195 

R 

808 

1 

195 

R 

1454 

1 

195 

R 

681 

1 

195 

R 

598 

1 

195 

R 

1344 

1 

195 

R 

1605 

1 

195 

R 

1737 

1 

195 

R 

3492 

1 

195 

R 

1055 

1 

195 

R 

2490 

1 

195 

5.61 

1843 

0 

195 

R 

935 

1 

195 

R 

1911 

1 

195 

R 

1446 

1 

195 

R 

2609 

1 

195 

R 

2158 

1 

195 

R 

3278 

1 

195 

R 

3106 

1 

195 

R 

651 

1 

195 

R 

568 

1 

195 

R 

547 

1 

195 

R 

526 

1 

195 

R 

506 

1 

195 

R 

498 

1 

195 

R 

478 

1 

195 

R 

480 

1 

195 

R 

477 

1 

195 

R 

482 

1 

195 

R 

484 

1 

195 

R 

500 

1 

195 

R 

532 

1 

195 

R 

542 

1 

195 

R 

591 

1 

195 

R 

618 

1 

195 

R 

13124 

1 

195 

R 

1899 

1 

195 

R 

1472 

1 

195 

R 

1650 

1 

195 

R 

2147 

1 

195 

R 

738 

1 

195 

R 

2220 

1 

195 

R 

1831 

1 

195 

R 

1000 

1 

195 

R 

3053 

1 

195 

R 

614 

1 

195 

R 

3796 

1 

195 

R 

1897 

1 

195 

R 

4799 

1 

195 

R 

2721 

1 

195 

R 

2217 

1 

195 

R 

840 

1 

195 

R 

2002 

1 

195 

R 

846 

1 

195 

R 

2328 

1 

195 

R 

1881 

1 

195 

R 

5059 

1 

195 

R 

2375 

1 

195 

R 

1039 

1 

195 

R 

2507 

1 

195 

R 

1101 

1 

195 

R 

2663 

1 

195 
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ID 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 

195 
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'^ooooooooooooooooooooooooooooooooooooo 
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-aooooooooooooooooooooooooooooooooooooo 
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^ooooooooooooooooooooooooooooooooooooo 
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RUN END DATE 2000/12/23022: 0:48 
RUN START DATE 2000/12/23022: 0:37 
TOTAL NUMBER OF STEPS 311048. 

TOTAL NUMBER OF TRAJECTORIES 316 
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Rigidity to Energy Conversion 


Most people find rigidity a difficult concept to visualize. Rigidity is a canonical coordinate and the 
path of every particle having the same rigidity (independent of the atomic number or atomic charge) is 

identical. For this reason we have included a subroutine named AZRGEG that will perform ngi^iity 

energy to conversion (and vice-versa) for any element or isotope. The next two pages contain tables 
rigidity to energy conversion. These tables are followed by the documentation for subroutine AZRGEG. 

We have prepared two sample programs using this subroutine AZRGEG. The program ER^G is 

an Illustration of ngidity to energy rigidity conversion for a Og nuclei, ® 

hydrogen) have a mass/charge ratio of approximately two. The program RIG_ERG is an illustration of 
energ^ to rigidity conversion for protons. We have entered the output files into a word processor and 
generated a one-page printout for each program. Then the two FORTRAN demonstration program 

listings follow. 



Ill 
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'^Or nuclei 

'^Og nuclei 

Riqidity 

Energy 

Rigidity 

Energy 

( MV ) ( MeV / Nuc ) 

( MV ) ( MeV / Nuc ) 

86.3 

1.000 

741.0 

71 . 000 

122.1 

2.000 

746.4 

72 . 000 

149.6 

3.000 

751.7 

73.000 

172.8 

4.000 

757.1 

74 . 000 

193.3 

5 . 000 - 

762.4 

75 . 000 

211.8 

6.000 

767.6 

76 . 000 

228.8 

7.000 

772 . 9 

77.000 

244.6 

8 . 000 

778.1 

78.000 

259.5 

9.000 

783.2 

79 . 000 

273.7 

10.000 

788.4 

80 . 000 

287.1 

11.000 

793.5 

81.000 

299 . 9 

12.000 

798.6 

82.000 

312.3 

13.000 

803.6 

83 . 000 

324.1 

14 .000 

808.7 

84 . 000 

335.6 

15.000 

813.7 

85 . 000 

346.7 

16.000 

818.7 

86 . 000 

357.5 

17 .000 

823.6 

87.000 

367.9 

18.000 

828.6 

88 . 000 

378.1 

19.000 

833.5 

89 . 000 

388.0 

20.000 

838.3 

90 . 000 

397.7 

21 . 000 

843.2 

91.000 

407.2 

22 . 000 

848.0 

92.000 

416 . 5 

23 .000 

852 . 9 

93 . 000 

425.5 

24 .000 

857.6 

94 . 000 

434.4 

25.000 

862.4 

95 . 000 

443.1 

26.000 

867.2 

96.000 

451.7 

27.000 

871.9 

97.000 

460.1 

28.000 

876.6 

98.000 

468.4 

29 . 000 

881.3 

99 . 000 

476.5 

30.000 

886.0 

100 . 000 

484 . 5 

31.000 

931.6 

110.000 

492.4 

32.000 

975.4 

120.000 

500.2 

33 .000 

1017.8 

130 . 000 

507.8 

34.000 

1058.9 

140 . 000 

515.4 

35 . 000 

1098.8 

150 . 000 

522.8 

36.000 

1137.7 

160 . 000 

530.2 

37.000 

1175.6 

170.000 

537.4 

38.000 

1212.6 

180.000 

544 . 6 

39.000 

1248 . 9 

190 . 000 

551 . 7 

40 . 000 

1284.5 

200 . 000 

558.7 

41 .000 

1319.4 

210.000 

565.6 

42 . 000 

1353.7 

220.000 

572.5 

43.000 

1387.4 

230 . 000 

579.2 

44 . 000 

1420.6 

240 . 000 

585 . 9 

45 . 000 

1453.4 

250 . 000 

592.6 

46 . 000 

1485.7 

260.000 

599.1 

47.000 

1517.5 

270.000 

605.6 

48.000 

1549.0 

280.000 

612.1 

49 . 000 

1580 . 1 

290 . 000 

618.4 

50 .000 

1610 . 8 

300 . 000 

624 .7 

51.000 

1641.2 

310 . 000 

631.0 

52 . 000 

1671.3 

320 . 000 

637.2 

53.000 

1701.1 

330.000 

643.4 

54 . 000 

1730.6 

340.000 

649.5 

55.000 

1759 . 9 

350 . 000 

655.5 

56 . 000 

1788.9 

360 . 000 

661.5 

57 . 000 

1817.6 

370 . 000 

667.5 

58 . 000 

1846.1 

380 . 000 

673 .4 

59.000 

1874.4 

390.000 

679.2 

60.000 

1902.5 

400.000 

685 . 0 

61.000 

1930.4 

410.000 

690.8 

62.000 

1958.1 

420 . 000 

696.5 

63.000 

1985.6 

430 . 000 

702.2 

64 . 000 

2013.0 

440 . 000 

707 . 9 

65 . 000 

2040.1 

450.000 

713.5 

66 . 000 

2067.1 

460.000 

719 . 1 

67.000 

2094.0 

470.000 

724.6 

68 . 000 

2120.7 

480 . 000 

730.1 

69 . 000 

2147.2 

490 . 000 

735.6 

70.000 

2173.6 

500.000 


to Energy Conversion 


*^Or nuclei 

nuclei 

Riqidity 

Energy 

Rigidity Energy 

( MV ) ( MeV / Nuc ) 

( MV ) ( MeV / Nuc ) 

2199.9 

510.000 

7844 . 3 3100 . 000 

2226.0 

520.000 

8049.7 3200.000 

2252.0 

530 . 000 

8254 . 8 3300 . 000 

2277 . 9 

540 . 000 

8459.7 3400.000 

2303.7 

550.000 

8664 .4 3500 .000 

2329.4 

560.000 

8868 . 9 3600 . 000 

2354.9 

570 . 000 

9073.1 3700.000 

2380.4 

580 . 000 

9277,2 3800.000 

2405.7 

590 . 000 

9481,1 3900.000 

2430.9 

600 , 000 

9684.9 4000.000 

2456.1 

610.000 

9888.4 4100.000 

2481.1 

620 . 000 

10091.9 4200.000 

2506.1 

630 . 000 

10295.2 4300.000 

2531.0 

640 . 000 

10498.4 4400.000 

2555.8 

650.000 

10701.5 4500.000 

2580.5 

660 . 000 

10904.4 4600.000 

2605.1 

670 . 000 

11107.2 4700.000 

2629.6 

680.000 

11310.0 4800.000 

2654 . 1 

690.000 

11512.6 4900 . 000 

2678.5 

700 . 000 

11715.2 5000.000 

2702 . 8 

710 . 000 

11917.7 5100.000 

2727.1 

720 . 000 

12120.0 5200,000 

2751.3 

730 . 000 

12322.4 5300.000 

2775.4 

740 . 000 

12524.6 5400.000 

2799.4 

750 . 000 

12726.8 5500.000 

2823.4 

760 . 000 

12928.8 5600.000 

2847.4 

770 . 000 

13130.9 5700.000 

2871.2 

780.000 

13332.9 5800.000 

2895.0 

790 . 000 

13534.8 5900.000 

2918.8 

800 . 000 

13736.6 6000.000 

2942.5 

810 . 000 

13938,4 6100,000 

2966.1 

820 . 000 

14140,2 6200.000 

2989.7 

830 . 000 

14341.9 6300.000 

3013.2 

840 .000 

14543.5 6400.000 

3036.7 

850 . 000 

14745.1 6500.000 

3060.2 

860 . 000 

14946.7 6600.000 

3083.6 

870 . 000 

15148.2 6700.000 

3106 . 9 

880.000 

15349.7 6800.000 

3130.2 

890 . 000 

15551.2 6900.000 

3153.4 

900 . 000 

15752.6 7000.000 

3176.7 

910 . 000 

15954,0 7100.000 

3199.8 

920.000 

16155 . 3 7200 . 000 

3222 . 9 

930 .000 

16356 . 6 7300 . 000 

3246.0 

940 . 000 

16557.9 7400.000 

3269.0 

950 . 000 

16759.1 7500.000 

3292.0 

960.000 

16960.3 7600.000 

3315.0 

970 . 000 

17161.5 7700.000 

3337.9 

980 . 000 

17362.7 7800.000 

3360 . 8 

990 . 000 

17563.8 7900,000 

3383.7 

1000 . 000 

17764.9 8000.000 

3610,3 

1100 . 000 

17966 . 0 8100 . 000 

3833.9 

1200 . 000 

18167.1 8200.000 

4055.1 

1300 . 000 

18368 . 1 8300 . 000 

4274.2 

1400 . 000 

18569.1 8400.000 

4491.5 

1500.000 

18770,1 8500.000 

4707.3 

1600 . 000 

18971.1 8600.000 

4921.7 

1700 . 000 

19172.0 8700.000 

5135.0 

1800 . 000 

19373.0 8800.000 

5347.3 

1900 . 000 

19573.9 8900.000 

5558.6 

2000 . 000 

19774.8 9000.000 

5769 . 2 

2100 . 000 

19975.7 9100.000 

5979.0 

2200 . 000 

20176.5 9200.000 

6188.1 

2300 . 000 

20377.4 9300.000 

6396.7 

2400 . 000 

20578.2 9400.000 

6604 . 8 

2500 . 000 

20779.0 9500.000 

6812 . 3 

2600 . 000 

20979.8 9600.000 

7019.4 

2700 . 000 

21180.6 9700.000 

7226.2 

2800 . 000 

21381 . 3 9800 . 000 

7432 . 5 

2900 . 000 

21582.1 9900.000 

7638.5 

3000 . 000 

21782,8 10000.000 
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PROTON 

PROTON 

PROTON 

PROTON 

Riqidity 

Energy 

Rigidity 

Energy 

Rigidity 

Energy 

Rigidity 

Energy 

(MV) 

(MeV) 

(MV) 

(MeV) 

(MV) 

(MeV) 

(MV) 

(MeV) 


0.001 

71.0 

2.681 

510.0 

129.594 

3200.0 

2396.122 

2.0 

0.002 

72.0 

2.757 

520.0 

134.403 

3300.0 

2492.194 

3.0 

0.005 

73.0 

2.834 

530.0 

139.285 

3400.0 

2588.484 

4.0 

0.009 

74.0 

2.912 

550.0 

149.257 

3500.0 

2684.975 

5.0 

0.013 

75.0 

2.991 

560.0 

154 .346 

3600.0 

2781.652 

6.0 

0,019 

76.0 

3.071 

570.0 

159 . 503 

3700.0 

2878.500 

7.0 

0.026 

77.0 

3.153 

580.0 

164 . 726 

3800.0 

2975.506 

8.0 

0,034 

78.0 

3.235 

590.0 

170.015 

3900.0 

3072.659 

9.0 

0.043 

79.0 

3.318 

600.0 

175 . 369 

4000.0 

3169.949 

10.0 

0.053 

80.0 

3.403 

610,0 

180.786 

4100.0 

3267.366 

11.0 

0,064 

81.0 

3.468 

620.0 

186.266 

4200.0 

3364.902 

12.0 

0.077 

82.0 

3.575 

630.0 

191.808 

4300.0 

3462.548 

13.0 

0.090 

83.0 

3.662 

640 . 0 

197.411 

4400.0 

3560,297 

14.0 

0.104 

84.0 

3.751 

650.0 

203.074 

4500.0 

3658.144 

15.0 

0.120 

85.0 

3.840 

660.0 

208.796 

4600.0 

3756.081 

16.0 

0.136 

86.0 

3.931 

670.0 

214.577 

4700.0 

3854.103 

17.0 

0.154 

87.0 

4.023 

600.0 

220.415 

4800,0 

3952.206 

18.0 

0.173 

88.0 

4.116 

690.0 

226.309 

4900.0 

4050.383 

19.0 

0.192 

89.0 

4.210 

700 . 0 

232.259 

5000.0 

4148.632 

20.0 

0.213 

90.0 

4.304 

710.0 

238.265 

5100 . 0 

4246.948 

21.0 

0.235 

91.0 

4.400 

720.0 

244.324 

5200.0 

4345.327 

22.0 

0.258 

92.0 

4.497 

730.0 

250.436 

5300.0 

4443.765 

23.0 

0.282 

93.0 

4.596 

740.0 

256.601 

5400 . 0 

4542.261 

24.0 

0.307 

94.0 

4.695 

750.0 

262.818 

5500.0 

4640.809 

25.0 

0.333 

95.0 

4.795 

760.0 

269.085 

5600.0 

4739.409 

26.0 

0.360 

96.0 

4.896 

770.0 

275.402 

5700.0 

4838.056 

27.0 

0.388 

97.0 

4.998 

780,0 

281.769 

5800.0 

4936.750 

28.0 

0.417 

98.0 

5.102 

790.0 

288 . 184 

5900.0 

5035.486 

29.0 

0,448 

99.0 

5.206 

800.0 

294 . 646 

6000.0 

5134.265 

30.0 

0.479 

100.0 

5.311 

810.0 

301.156 

6100.0 

5233.082 

31.0 

0.512 

110.0 

6.423 

820.0 

307.712 

6200.0 

5331.937 

32.0 

0.545 

120.0 

7.639 

030.0 

314.313 

6300.0 

5430 . 828 

— 33.0 

0 . 580 

130.0 

8.959 

040.0 

320.959 

6400.0 

5529.753 


0.616 

140.0 

10.382 

850.0 

327.650 

6500.0 

5628 . 710 

35.0 

0.652 

150 . 0 

11 . 909 

860 . 0 

334.383 

6600.0 

5727.698 

36.0 

0.690 

160.0 

13.538 

870 . 0 

341 . 160 

6700.0 

5826.717 

37.0 

0.729 

170.0 

15.269 

880.0 

347.978 

6800.0 

5925.763 

38.0 

0.769 

180.0 

17.102 

890.0 

354.838 

6900.0 

6024.837 

39.0 

0.810 

190.0 

19.035 

900.0 

361.738 

7000.0 

6123.938 

40.0 

0.852 

200.0 

21.069 

910 . 0 

368.679 

7100.0 

6223.063 

41.0 

0.895 

210.0 

23.203 

920.0 

375.659 

7200.0 

6322.212 

42.0 

0.939 

220.0 

25.435 

930.0 

382.677 

7300.0 

6421.384 

43.0 

0 . 984 

230.0 

27.766 

940.0 

389.734 

7400.0 

6520.578 

44 . 0 

1 . 031 

240.0 

30.194 

950.0 

396.829 

7500.0 

6619.793 

45 . 0 

1.078 

250.0 

32.720 

960.0 

403.961 

7600.0 

6719.029 

46 . 0 

1.126 

260.0 

35.341 

970.0 

411.128 

7700.0 

6818.285 

47 . 0 

1.176 

270.0 

38.058 

980.0 

418.332 

7800.0 

6917 . 559 

48 . 0 

1.226 

280.0 

40.869 

990.0 

425.571 

7900.0 

7016 . 852 

49 . 0 

1.278 

290.0 

43.774 

1000.0 

432.845 

8000.0 

7116.162 

50 . 0 

1.331 

300.0 

46,772 

1100.0 

507.375 

8100.0 

7215.489 

51.0 

1.384 

310.0 

49.862 

1200.0 

584.825 

8200.0 

7314.832 

52 . 0 

1.439 

320.0 

53,043 

1300.0 

664.773 

8300.0 

7414.191 

53.0 

1.495 

330.0 

56.315 

1400.0 

746.862 

8400 . 0 

7513.565 

54.0 

1.552 

340.0 

59.676 

1500.0 

830.796 

8500.0 

7612.953 

55.0 

1.610 

350.0 

63 . 126 

1600.0 

916.323 

8600.0 

7712.356 

56.0 

1.669 

360.0 

66.663 

1700.0 

1003.234 

8700.0 

7811,772 

57.0 

1.729 

370 . 0 

70.287 

1800.0 

1091.350 

8800.0 

7911.202 

58 . 0 

1.790 

380.0 

73.996 

1900.0 

1180.521 

8900 . 0 

8010.644 

59.0 

1.852 

390.0 

77.791 

2000 . 0 

1270.620 

9000.0 

8110 . 098 

60.0 

1.916 

400.0 

81.669 

2100.0 

1361.537 

9100.0 

8209.565 

61.0 

1.980 

410.0 

85.631 

2200 . 0 

1453.179 

9200.0 

8309.042 

62 . 0 

2.045 

420 . 0 

89.674 

2300 . 0 

1545.466 

9300.0 

8408 . 531 

63.0 

2.112 

430.0 

93.798 

2400.0 

1638.328 

9400.0 

8508.031 

64 . 0 

2.179 

440.0 

98.003 

2500.0 

1731.706 

9500.0 

8607.541 

65 . 0 

2.248 

450.0 

102 . 286 

2600 . 0 

1825 . 548 

9600-0 

8707 . 062 

66 . 0 

2.317 

460.0 

106.648 

2700 . 0 

1919 . 807 

9700.0 

8806.592 

67 . 0 

2.388 

470.0 

111.087 

2800.0 

2014 .443 

9800.0 

8906 . 132 


2.460 

480.0 

115.602 

2900.0 

2109.423 

9900.0 

9005.600 

69.0 

2.532 

490.0 

120.192 

3000.0 

2204.713 

10000.0 

9105.238 

70.0 

2.606 

500.0 

124.856 

3100.0 

2300.288 
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Subroutine AZRGEG (NA, NZ, PAMU, RIGIN, EPN, BETA) 

This is a subroutine for rigidity to energy conversion and vice-versa 


Input arguments: 

NA 

NZ 

PAMU 


Integer atomic number 

Integer atomic charge 

Physical mass unit of element (or isotope) 


Utility arguments 

RIGIN 

EPN 


Rigidity in MV 

Energy per nucleon in MeV 


Return Arguments 

beta Particle speed as a fraction of light speed (v/c) 

Labeled Common arguments; none 
Dimensioned Variables none 

Data files: none 


Operation: . 

When the subroutine is called it can do either a rigidity-to-energy conversion or an energy-to-ngidity 

conversion. If the variable RIGIN is positive, then the conversion is rigidity-to-energy and the output 
energy is in the variable EPN. If the variable RIGIN is initially set to zero or a negative value, then the 
conversion is energy-to-rigidity. The value RIGIN is replaced with the appropriate rigidity value for the 

energy specified in the variable EPN. The subroutine will work for any element or isotope. It is 

necessary to specify the atomic number, the atomic charge and the atomic mass in physical mass units. If 
these values are not specifically provided, the program will default to the values appropriate for protons. 
The variable RIGIN must be in the rigidity unit MV. The variable EPN (energy per nucleon) will be m 
MeV. 

When called with the proper arguments, the software first tests the value of the variable RIGIN to 
determine which conversion to perform. The total kinetic energy of the particle is computed. The next 

step is to compute the relativistic gamma. (The relativistic gamma factor is a ' natural unit used in ig 

energy physics that is the ratio of the particle kinetic energy to rest mass energy.) From the relativistic 
gamma factor, either energy or rigidity can be computed. The particle speed BETA can also be 
computed from the relativistic gamma factor. The particle speed BETA is returned as an argument since 
it is useful in many conversions such as differential flux in terms of energy or rigidity. 
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program 


ERG RIG 


+ •••; 

Energy to Rigidity conversion example ^ 

■ W*Ex,™ple ■ ot ' the ' use ' of ' the ' Energy ' to’ Rigidity 

Convert geomagnetic cutoff rigidity to proton cutoff energy 
convert geomag^ 

rigidity in often used in units of GV; 
lubrou^ine ITrUl retuLs "energ^"^ in Tits ff ^^V^per nucleon 

:Sailei' h^gii;i:g Sith^raif Srrarrv^iahiee 

all other variables are real*8 



implicit integer (i-n) 
implicit REA1*8 (a-b) 
implicit REAl*8 (d-h) 
implicit REA1*8 (o-z) 


+ . . . . 


open ( 7 ,file='erg-rig.txt' , status= 'unknown' ) 


+ • • 


. . + ■ ■ 


Define atomic number, atomic change and rest mass for oxygenl6 
(Note, any element or isotope can be speci le ^ 


na = 16 
nz = 8 

pamu = 16.00 


+ « 


. . . 

\/ First demonstration 


does Energy to Rigidity from 1 to 100 MeV 

-I- + • • 




Do 100 i=l,100 
rpmv = 0.0 

epnmev = float (i) v. i_ \ 

call azrgeg (na, nz^pamu, rpmv, epnmev, beta} 

write (7, 1070) rpmv, epnmev 


100 continue 

+ + 

demonstration does Energy 

- 
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Do 110 1=100,1000,10 
rpmv = 0.0 

epnmev = float (i) \ 

call azrgeg (na, nz, pamu, rpmv, epnmev, beta) 

write (7, 1070) rpmv, epnmev 

110 continue 

;-f; 

C \/ second demonstration does 100 MeV increments 



Do 120 i= 1000 , 10000 , 100 
rpmv = 0.0 

epnmev = float (i) k^ 4 --,n 

call azrgeg (na,nz,pamu, rpmv, epnmev, beta) 

virite (7, 1070) rpmv, epnmev 

120 continue 

1070 format (IflO.l, lflO.3) 
stop 

subroutine azrgeg (na, nz , pamu, rigin, epn, beta) 

„ * - 

I subroutine to convert rigidity to energy and visa vers. 

cLast mod 17 March 94 

C . . X 

J F Smart (sssrc@msn.com) 

c Trogta^Sg adLres to convention that variables beginning 

C wore y ^ are integer values, 

c variables beginning with c are character variables 

r, all other variables are real*4 ^ ^ 

c - 

c 

implicit integer (i-n) 
implicit REA1*8 (a-b) 
implicit REA1*8 (d-h) 
implicit REA1*8 (o-z) 

* * * * 

C . . ! 

C write (*,6010) na, nz , pamu, rigin, epn , 

C6010 format (' azrgegl ' , 2i5 , 3f 15 . 3) 

", Chech ■ • if ■ na ; "nz ; ■ or ■ pa^u ' no^ ' specified ; ’ pu^' In ' def au! 1 ’ f ol protons 

c ' epamu is rest mass energy per atomic mass unit ^ 

^ + 



if (pamu. le. 0.0) pamu = 1.0081451 

if (na.le.O) na = 1 

if (nz.le.O) nz = 1 

c 


diag 

diag 
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c 


c 

c 

c 

c 

c 

c 

c 

c 


c 


epamu = 931.141 

anuc = na 
zcharg = nz 

rsmspn = (pamu/ anuc) * 0 pamu 


trig = rigin 


. . . . + 

\/ if trig . le . 0.0 
if trig .gt. 0.0 
. . . + 


; * 

do energy to rigidity conversion 

do rigidity to energy conversion 

• 






if (tria . le . 0 . 0 ) then . . 

Energy to Rigidity conversion 

gmaeg = (anuc*epn+anuc*rsmspn) / (anuc*rsmspn) 

gmaegg = (epn+rsmspn) /rsinspn 

rigin = dsqrt (gmaeg*gTnaeg>l . 0) *rsmspn*anuc/zcharg 

relqma = gmaeg 


Rigidity to Energy conversion 

gmarg = dsqrt ( ( (rigin*zcharg) / (rsmspn*anuc) ) **2+1 . 0) 

epn = (gmarg -1 . 0) *rsmspn 
relgma = gmarg 
endif 


c 
c 
c 

c6020 format 
c6030 format 
c 


write (*,6020) anuc , zcharg, rsmspn, rigin, epn, gmaeg, gmaegg, gmarg 

write (*,6030) na,nz,pamu, rigin, epn 
( ' azrgeg2 ' , 8f 10 . 3 ) 

(' azrgeg3 ' , 2i5 , 3f 15 . 5) 


beta = dsqrt (1.0-1. 0/ (relgma*relgma) ) 


return 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


beta is v/c (speed as fraction of light speed) 
enerqy in MeV 

epamu is mass -energy conversion = 931.141 MeV per amu 
epn is kinetic energy per nucleon 
na is atomic number 
nz is charge 

pamu is rest mass in physical atomxc mass units 
relgam is relativistic factor 'gamma' 
rigidity in mv 

rsmspn is rest mass per nucleon in MeV 


diag 

diag 

diag 

diag 


end 
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c . . 
c 

c . . 

c 

c 

c 

c 

c 

c 

c . . 

c 

c 

c 

c 

c 

c . 

c 


c 
c . 


c . 

c 
c 
c . 
c 


c 
c . 
c 
c . 
c 


program RIG_ERG 

+ •••: 

Rigidity to energy conversion example ^ ^ 

■■■\/Example' of ’the 'use ‘of ‘the 'Rigidity 'to Energy conversion program 
convert geomagnetic cutoff rigidity to proton cutoff energy 
need to define proton atomic number, charge and mass 
rigidity in often used in units of GV; 
subroutine azrgeg needs rigidity in units of MV 
Subroutine azrgeg returns energy m units of p 

- - " 

PT-narammed bv Don F. Smart (sssrc@msn.com) 

Note - programming adheres to convention that variables beginning 
with i, j, k, 1, m, n are integer values, 
variables beginning with c are character variab 
all other variables are real*8 



implicit integer (i-n) 
implicit REAl*8 (a-b) 
implicit REAl*8 (d-h) 
implicit REA1*8 (o-z) 

- - 

open ( 7 ,file='rig-err.txt' , status= 'unknown' ) 

- 

Define atomic number, atomic change and rest mass for proton 



na = 1 
nz = 1 

pamu = 1.0081451 

■■■■w'pirst 'demonstration '^does 'Rigidity to Energy from 1 to 100 MV 
+ 

Do 100 i=l, 100 

rpmv = float (i) . ^ i< 5 ub 20 

call azrgeg (na, nz, pamu, rpmv, epnmev, beta) 
write (7, 1070) rpmv, epnmev 


100 continue 


c 
c . 
c 
c 

c . 
c 


. + . 


. + . 


\/ Second demonstration does Rigidity to Energy 

\/ secona aemo MV in 10 MV increments 

j. + ' 


Do 110 1=100,1000,10 
rpmv = float (i) 
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call azrgeg (na,nz,pamu, rpmv,epnmev,beta) 

write (7, 1070) rptnv,epnmev 
110 continue 
c 

c + + + + ' 

c \/ Third demonstration does Rigidity to Energy 

r- from 1000 to 10000 MV in 100 MV increments 

c - - - - 

c 

Do 120 1=1000,10000,100 
rpmv = float (i) 

call azrgeg (na, nz,pamu, rpmv, epnmev, beta) 

write (7, 1070) rpmv, epnmev 
120 continue 

1070 format (IflO.l, lflO.3) 

stop 

end 

subroutine azrgeg (na, nz , pamu, rigin, epn, beta) 
c 

c + + + + + • ■ : + • 

c subroutine to convert rigidity to energy and visa versa 

cLast mod 17 March 94 

c + + + ^ 

Q Programmed by Don F. Smart (sssrc@msn.com) 

c Note - programming adheres to convention that variables beginning 

c with i, j, k, 1, m, n are integer values, 

c variables beginning with c are character variables 

c all other variables are real*4 

c + + + + • + + • 

c 

implicit integer (i-n) 
implicit REAl*8 (a-b) 
implicit REA1*8 (d-h) 
implicit REAl*8 (o-z) 

c + + + + + * 

^ . . I 

c write (*,6010) na , nz , pamu, rigin, epn 

c6010 format (’ azrgegl ' , 2i5 , 3f 15 . 3 ) * 

c 

c + + ‘ ] ^ 

c Check, if na, nz, or pamu not specified, put in default for protons 

c epamu is rest mass energy per atomic mass unit 

c + + + + + '*■ 

c 

if (pamu. le . 0 . 0) pamu = 1.0081451 
if (na.le.O) na = 1 

if (nz.le.O) nz = 1 

c 

epamu = 931.141 
c 

anuc = na 
zcharg = nz 


diag 

diag 
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rsmspn = (pamu/ anuc) *epan\u 
trig = rigin 


c 
c . 
c 
c 
c . 
c 


. . . . + 

\/ if trig .le. 0.0 
if trig .gt. 0.0 
, . . . + 


+ ; + ; • * • 

do energy to rigidity conversion 

do rigidity to energy conversion 


if ( tr iQ . Is • 0 . 0 ) then 

^ Energy to Rigidity conversion 

gmaeg = (anuc*epn+anuc*rsmspn) / {anuc*rsmspn) 

gmaegg = (epn+rsmspn) /irsnispn 

rigin = dsqrt {gmaeg*gmaeg-l . 0 ) *rsmspn*anuc/zcharg 

relgma = gmaeg 
else 

Rigidity to Energy conversion 

gmarg = dsqrt (( (rigin*zcharg) / (rsmspn*anuc) ) **2+1 . 0) 

epn = (gmarg- 1 . 0 ) *rsmspn 

relgma = gmarg 
endif 


c 

c 

c 

C6020 

c6030 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


write (*,6020) anuc , zcharg, rsmspn, rigin, epn, gmaeg, gmaegg, gmarg 

write (*,6030) na, nz , pamu, rigin, epn 
format (' azrgeg2 ',8fl0.3) 
format (' azrgeg3 ' , 2i5 , 3f 15 . 5) 

beta = dsqrt ( 1 . 0 - 1 . 0 / (relgma*relgma) ) 

return 

beta is v/c (speed as fraction of light speed) 
energy in MeV 

epamu is mass-energy conversion = 931.141 MeV per amu 
epn is kinetic energy per nucleon 
na is atomic number 
nz is charge 

pamu is rest mass in physical atomic mass units 
relgam is relativistic factor 'gamma' 
rigidity in mv 

rsmspn is rest mass per nucleon in MeV 


diag 

diag 

diag 

diag 


end 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 


PROGRAM TJI95 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. . . . 
c 

c. . . . 

c 

CLast 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. . . 

c 

c 

c 

c 

c 

c 

c. . . 

c 

c 

c. . . 
c 


c 

c. 

c 


. + . . . . 


+ . • • 


h + • • 


INDO 


### 


Multi-platform COSMIC-RAY TRAJECTORY PROGRAM 
fortran 77 transportable version 

Read in control card; lAT, LON, RIG, ZENITH, AZIMUTH, DELPC, 

Then calculate INDO trajectories 

Starting at PC 

Incrementing at DELPC intervals 

Includes conversion from Geodetic to Geocentric coordinates 
Includes re-entrant albedo calculations 

Uses subroutine SINGLTJE to do trajectory calculations 
Magnetic field - IGRF 1995 (order 10) 

' Restrictions S'^Cannot ’ run over N or S pole; will get BETA blowup 
+ + + 

M^ 21^Dec^00 Make all intrinsic function double precision for PC 
Mod 20 Dec 00 Insert 8 character format 1000 with AZ & 

Mod 17 Feb 99 set limit to 600000 

Mod 17 Feb 99 if (ymax. It . 6 . 6) IFATE « 3 

Mod Aug 97 Adjust step size to minimize beta 

Mod Jan 97 High latitude step size adjust, introduce AHLT 

Mod Jun 96 EDIF limit set to l.Oe-5 ^ 

Mod Jun 96 lERRPT formats, Boundary and look aheaa 
Mod Feb 96 Standard reference TJIV line check 
Mnd Dec 94 Print out start and end times of PC run 




Timing 
Will run on 
Will run on 
Will run on 
Will r\m on 

■frit********** 

* TAPE* 

* TAPEl 

♦ TAPE 7 

★ TAPES 

♦ TAPEl 6 


estimates base on COMPAQ Digital FORTI^ 

PHI PC at 850 MHZ 55000 steps/sec (Real 8 

PHI PC at 700 MHZ 39000 steps/sec (Real*8) 

PHI PC at 550 MHZ 32000 steps/sec (Real*8) 

PH PC at 400 MHZ 23000 steps/sec (Real*8) 

.*..****...****.*.«***********************“****** 
Monitor program operation 
Trajectory control cards 
80 character line (card image) output 
132 character line printer output 
Diagnostic output for trouble shooting 
Normally turned off (open statement commented out) 
******************************^*****’^*******^^**^'" 


*■****★★■****♦ 

^ " 

Programmer - Don F. Smart; F0RTRAN77 pqrtrAN 

Note - The programming adheres to the conventional FORTRAN 
default standard that variables beginning with 
i^r iji «l','m',or 'n' are integer variables 

variables beginning with "c" are character variables 
All other varieibles are real ^ ^ 

^ Do not mix different type verifies in same common block 
Some computers do not allow this ^ 


IMPLICIT INTEGER (I-N) 
IMPLICIT REAL * 8 (A-B) 
IMPLICIT REAL * 8 (D-H) 
IMPLICIT REAL * 8 (0-Z) 




COMMON /WRKVLU/ F (6) , Y (6) . ERAD, EOMC, VEL, BR, BT, BP, B 
COMMON /WRKTSC/ TSY2 , TCp , TSY3 , TCY3 
COMMON /TRIG/ 

COMMON /GEOID/ 

COMMON /SNGLR/ 

* 

COMMON /SNGLI/ 


PI , RAD, PI02 
ERADPL, ERECSQ 

SALT , DISOUT , GCLATD , GDLATD , GLOND , GDAZD , GDZED , 
RYl , RY2 . RY3 , RHT, TSTEP 
LIMIT , NTRAJC . lERRPT 


C 

C, . . 
C 


+ 
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71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 


c 

c. . 

c 

c. 


96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
109 

no 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 


c 

c. 

c 

c 

c 

c 

c. 

c 

c. 

c 


OPEN (1, FILE='TAPE1' , STATUS* ' OLD ’ ) 

OPEN {7, FILE* ' TAPE7 ' , STATUS* ’ UNKNOWN' ) 
OPEN {8, FILE* ' TAPES ’ , STATUS* ' UNKNOWN ' ) 
open {16,FILE*'TAPE16’ , STATUS* ' UNKNOWN ’ ) 


\/ User defined program control 


FSTEP * 4.0E08 
LIMIT * 600000 


82 

83 

84 

85 

C 

C. . . 

c 

C 

*/\ 

. + 

FSTEP 

LIMIT 

is total 
is 

60 

87 

c . . . 
c 

’\/ 

Define 

program i 

88 

c. . . 


. + 


89 

c 


DISOUT 

is 

90 

c 


ERAD 

is 

91 

c 


NTRAJC 

is 

92 

c 


RHT 

is 

93 

c 


TSTEP 

is 

94 

c. . 


. + 


95 

c 





max number of steps before trajectory declared F 

+ + + + 


+ + + + ;•••; 

radial distance for trajectory termination 

average earth radius 

number of trajectory computed in this run 
top of atmosphere for re-entrant trajectory 
number of steps executed in this run 

+ + + 


NTRAJC = 0 
TSTEP * 0.0 

DISOUT =25.0 
ERAD = 6371.2 
RHT =20.0 

VEL = 2 -99792458E5/ERAD 


, . . .+ 


+ + + + 

"VEL" is light velocity in earth radii per second 
Light speed defined as 299792458 m/s , t 

Ref: E. R. Cohne AND B. N. Taylor, "The Fundamental Physical 
Constants, Physics Today Pll, August 1987. 

+ + + ^ 

\/ Define essential trigonometric values 


PI = ACOS (-1.0) 
rad = 180.0/PI 
PI02 * PI/2.0 


\/ TAPEl must contain trajectory control cards 
Terminate program if no data on TAPEl file 
Teirminate if EOF encountered 

Terminate if negative data found on input file 
Terminate if bad data found on input file 


100 READ (1, 1010, IOSTAT=IOSTAT, ERR*120,END=110) GDLATD , GLOND , PC , 

* GDZED, GDAZD, DELPC, INDO, lERRPT, INDEX 
1010 FORMAT (BZ, 6F8 . 2, 318) 

110 CONTINUE 

IF (lOSTAT .LT . 0) THEN 
WRITE (* , 1020) 

GO TO 150 
ENDIF 

1020 FORMAT { ' END OF FILE ON TAPE 1 (DATA INPUT) ' ) 

120 IF (lOSTAT.GT. 0) THEN 

WRITE (* , 1030) lOSTAT. GDLATD, GLOND, PC, DELPC, 

★ INDO , I ERRPT , INDEX 
GO TO 150 

ENDIF 
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141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 


1030 


1040 


1050 

C 

C 

C 

C 

C. . . . 
C 


C 

C. . 

C 

C 

C 

C 

C 

C 

C. , 

c 


c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 


FORMAT (’ ERROR ON DATA INPUT FILE (TAPED, lOSTAT -'.15/ 

► 4F8.3.3I8) 

IF (PC.LE.O) THEN 
WRITE (*.1040) 

GO TO 150 

FORMAT ( ' END OF DATA INPUT (NEGATIVE VALUE READ IN) ' ) 

WRITE (*.1050) gdlatd.glond.pc.gdzed.gdazd.delpc.indo.ierrpt.index 

FORMAT (' TAPE 1 ’,6F7.2,3I6) 

^ + + + •• 

'{} start at top of atmosphere (20 tan above surface of oblate earth) 

Codinq is relic of past when I SALT was read in 

^ ^ 

I SALT = 0 

IF (ISALT.LE.O) SALT = 20.0 
IF (ISALT.GT.O) SALT = ISALT 

KNT = 0 

IDELPC = DELPC*1000 .0+0 .0001 
INDXPC = PC*1000. 0 + 0. 0001 


For trajectories from Earth 

convert from Geodetic coordinates to Geocentric coordinates 
Geodetic coordinates used for input 
Geocentric coordinates used for output 
All calculation are done in Geocentric coordinates! 

\/ Conversion from Geodetic to Geocentric coordinates 


CALL GDGC (TCD, TSD) 


\/ Remember positron of initial point on trajectory 
in Geocentric coordinates 
Y(l) is distance in earth radii from geocenter 

Start with height above geoid and convert to earth radii 
The initial values of Y(l) . Y(2) , and Y(3) are 
calculated in subroutine GDGC 
Coordinate reference system 
Y(l) = R = vertical 

Y(2) = THETA = south 

Y(3) = PHI = east 


RY2 = Y(2) 

RY3 = Y(3) 

RYl = Y(l) 

GDAZ = GDAZD/RAD 
GDZE = GDZED/RAD 
TSGDZE = SIN (GDZE) 
TCGDZE = COS (GDZE) 
TSGDAZ = SIN (GDAZ) 
TCGDAZ == COS (GDAZ) 


C 

C. . . 

C 

C 

C 

C 

C. . . 
C 


....+ + + + 

\/ Get Yl, Y2. Y3 components in Geodetic coordinates 

Azimuth is measured clockwise from the north 

in R, THETA. PHI coordinates, in the THETA- PHI plane 

The cing le is 180 - AZD 

.... + - - 

YIGD = TCGDZE 

Y2GD = -TSGDZE*TCGDAZ 

Y3GD = TSGDZE* TSGDAZ 
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211 

212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

C1060 

c 

c. . . . 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. . . . 
c 

c 


c 

c 


c 

c 

c 

c 

c 


c 

130 

140 

1070 

c 

c. . . . 

c 

c 

c 

c 

c. . . . 
c 

c 

c. . . . 

c 

c 


... + + + + + + + • 

\/ The small angle delta at the point in space between the 
downward Geodetic direction and the 
downward Geocentric direction is given by 

DELTA = Geocentric co- latitude + Geodetic latitude - 90 (deg) 
We are looking up 

The rotation from Geodetic vertical to Geocentric Vertical 
Is always rotation toward the equator 

\/ Convert from Geodetic to Geocentric Components for Yl, Y2 , 

... + + + .... + + + 


YIGC = Y1GD*TCD+Y2GD^TSD 
Y2GC = -Y1GD*TSD+Y2GD*TCD 
Y3GC = Y3GD 

WRITE (* , 1060) GDZED,GDZE,GDAZD,GDAZ,TSGDZE,TCGDZE, TSGDAZ,TCGDAZ 
WRITE (*,1060) YIGD, Y2GD, Y3GD, YIGC, Y2GC, Y3GC 
FORMAT (’ 1050' ,8F15.5) 

... + + + + + + + 

*★****♦****★***■*★******★★***★*★★**★★*************★* 

Main control of trajectory calculations begins here 
Trajectories are calculated in subroutine SINGLTJ 

★ ★★★★★★★★★***'***^**i»r*'(lt**************************^** 

PC - rigidity IN GV 

INDXPC = index of rigidity in MV (integer) 

IRSLT = trajectory result 


IRSLT 

+1 

allowed 

IRSLT 

0 

failed 

IRSLT 

-1 

re-entrant 


DO 130 NDO = 1, INDO 

IF (lERRPT.GE . 1) WRITE (16,1070) GDLATD , GLOND, KNT, INDO, NDO, 
I DELPC, INDXPC, DELPC, PC 

CALL SINGLTJ (PC, IRSLT, INDXPC, YIGC, Y2GC, Y3GC) 

KNT = KNT+1 

INDXPC = INDXPC- IDELPC 
PC = FLOAT (INDXPC) /lOOO.O 


+ + + + + + 

\/ Check termination conditions 

+ + + + + + + •• 

IF (PC .LE. 0.0) GO TO 140 

IF (TSTEP .GE. FSTEP) GO TO 150 

CONTINUE 

CONTINUE 

FORMAT (' 1070 ' , 2F7 . 2 , 516 , 2F6 . 2) 


+ + + + + + + ♦• 

A***-***********#**#-***'** 

End of main control loop 

★ •(nk********************* 

/\ Go read in next control card 

... + + + + + + + •• 

GO TO 100 

... + + + + + + + •• 

End of trajectory calculations 
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281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 


c 

c 

c 

150 

C 


+ + + • ■ 


CONTINUE 


WRITE (*, 1120) TSTEP.NTRAJC 
WRITE (8, 1120) TSTEP.NTRAJC 
1120 FORMAT (//' TOTAL NUMBER OF STEPS ’,F15.0/// 

* ' TOTAL NUMBER OF TRAJECTORIES 115///) 

Write {*,1130) 

1130 format (' End program TJI95I ' ) 


C 

C. . 
C 

c 

c 

c 

c 

c 


STOP 

Y(l) 

Y(3) 

Y(5) 

F(l) 

F(3) 

F(5) 


is R coordinate 
is PHI coordinate 
is V (THETA) 
is R dot 
is PHI dot 
is THETA dot dot 


302 

c 

BR is B(R) 


303 

c 

BP is B(PHI) 


304 

c . . . 




305 

c 




306 

c 

ierrpt vlu 

Program 

Format 

307 

c 

IERRPT = 1 

“MAIN" 

1070 

308 

c 

IERRPT = 1 

SINGLTJ 

2000 

309 

c 

IERRPT = 2 

SINGLTJ 

2070 

310 

c 

IERRPT = 4 

SINGLTJ 

2090 

311 

c 

IERRPT = 3 

SINGLTJ 

2100 

312 

c 

IERRPT = 3 

SINGLTJ 

2110 

313 

c 

IERRPT = 3 

SINGLTJ 

2120 

314 

c 




315 

c 

IERRPT = 4 

SINGLTJ 

2130 

316 

c 

IERRPT = 4 

SINGLTJ 

2140 

317 

c 




318 


END 



319 


SUBROUTINE 

GDGC (TCD, TSD) 

320 

c 




321 

c. . 


. . + 


322 

c 

\/ Convert 

from Geodetic t 

323 

c 

Adopted 

from NASA ALLMA 


+ + • 

Y(2) is THETA coordinate 
Y(4) is V(R) 

Y{6) is V(PHI) 

F{2) is THETA dot 
F(4) is R dot dot 
F(6) is PHI dot dot 
BT is B (THETA) 

B is magnitude of magnetic field 


+ ■ 


Variables printed out 
Input to SINGLTJ 
Input to SINGLTJ 

PC . BETA, KBF , RCKBETA, NSTEP , TBETA, Y , H 
Y, F,ACCER,H,NSTEP 
H,HCK,Y(1) ,DELACC, PC, NSTEP 
H,HCK,Y(1) ,RFA, PC, NSTEP 
H,HCK,Y(1) ,NAMX,F(ICK) , ICK, FOLD(ICK) 
ICK,PC, STEP 

Y(l) ,DISCK, PVEL,H,HSNEK, HOLD, NSTEP 
Y (1) ,DISCK, PVEL,H, HOLD, NSTEP 


324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. . . . 
c 

CLast 

C 

C 

C. . . . 
C 
C 
C 
C 
C 
C 
C. 

c 
c 


GDLATD 
GCLATD 
GDCLT 
ERPLSQ 
EREQSQ 
ERADPR 
ERADER 
ERAD 
ERADFL 
ERADFL 
ERECSQ 
ERECSQ 
, . + 


= VjC WU-C L, J. — ^ w 

= Geocentric latitude (in degrees) 

= Geodetic co- latitude 

is earth radius AT poles squared = 40408585 km sq 

is earth radius AT equator squared = 40680925 (km sq) 

is earth polar radius = 6356.774733 (km 

is earth equatorial radius = 6378.160001 (km 

is earth average radius = 6371.25 (km) 

is flattening factor = 1.0/298.25 
= (ERADEQ - factor) /ERADEQ 
is eccentricity squared = 0.00673966 
= EREQSQ/ERPLSQ - 1.0 


Mod 15 Jan 97 
Mod Feb 96 


Common bloc)c SNGLR & SNGLI 
Standard reference TJIV line check 


+ + 

Programmer - Don F. Smart; FORTRAN77 FORTRAN 

Note - The programming adheres to the conventional FORTRAN 
default standard that variables beginning with 

'k' , '1' , 'm' ,or 'n‘ are integer variables 
variables beginning with "c” are character variables 
All Other variables are real 

^ + + + 

DO not mix different type vari^les in same common block 

Some computers do not allow this 
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351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 


. . . + + . . . , 


IMPLICIT INTEGER (I-N) 
IMPLICIT REAL * 8 (A>B) 
IMPLICIT REAL * 8 (D-H) 
IMPLICIT REAL * 8 (0-Z) 


COMMON /WRKVLU/ 

F(6) ,Y(6) , ERAD, EOMC, VEL,BR, BT, BP, B 

COMMON /WRKTSC/ TSY2 , TCY2 , TSY3 , TCY3 

COMMON /TRIG/ 

PI,RAD,PI02 

COMMON /GEOID/ 

ERADPL, ERECSQ 

COMMON /SNGLR/ 

SALT , D I sour , GCLATD , GDLATD , GLOND , GDAZD , GDZED , 

* 

RYl , RY2 , RY3 , RHT , TSTEP 




ERPLSQ = 40408585.0 
EREQSQ = 40680925.0 
ERADPL = SQRT (ERPLSQ) 

ERECSQ = EREQSQ/ ERPLSQ - 1.0 
C 

GDCLT = PI02-GDLATD/RAD 
TSGDCLT = SIN (GDCLT) 

TCGDCLT = COS (GDCLT) 

ONE = EREQSQ* TSGDCLT* TSGDCLT 
TWO = ERPLSQ*TCGDCLT*TCGDCLT 
THREE = ONE+TWO 
RHO = SQRT (THREE) 

C 

c + :'*’'*** 

C \/ Get geocentric disteuice from geocenter in kilometers 

C + + + + ■ 

^ DISTKM = SQRT (SALT* (SALT+2.0*RHO)+(EREQSQ*ONE+ERPLSQ*TWO) /THREE) 

C 

c + + . + + : : : 

C TCD and TSD are sine and cosine of the angle the Geodetic vertica 

r must be rotated to form the Geocentric vertical 

C + + + 

C 

TCD = (SALT+RHO) /DISTKM 

TSD = (EREQSQ-ERPLSQ)/RH0*TCGDCLT*TSGDCLT/DISTKM 

TCY2 = TCGDCLT* TCD -TSGDCLT* TSD 
TSY2 = TSGDCLT*TCD+TCGDCLT*TSD 
C 

Y(2) = ACOS(TCY2) 

Y(3) = GLOND/RAD 
Y(l) = DISTKM/ERAD 


C 

C 

C1200 

C 

C 


GCLATD = (PI02-Y(2) ) *RAD 

WRITE (*, 1200 ) GDLATD, GDCLT, TSGDCLT, TCGDCLT, ONE, TWO, THREE, RHO 

FORMAT (' 1200 ' , 8F15 . 5) 

WRITE (*,1200) DISTKM , TCD , TSD , TCY2 , TS Y2 , GCLATD 

RETURN 

END 

SUBROUTINE SINGLTJ ( PC . IRSLT, INDXPC, YIGC, Y2GC , Y3GC) 

C 

c + + : - 

C Cosmic -ray trajectory calculations subroutine 

Q calculates cosmic ray trajectory at rigidity PC 

C + ; • + 

C PC = rigidity in GV 

C IRSLT = trajectory result 

C INDXPC = index of rigidity in mv (integer) 

C YIGC, Y2GC, Y3GC are initial geocentric coorinates 

C + + ^ 


+ . . 
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421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 


C \/ step size optimization & look ahead for potential BETA problems 

C monitor accelerating terms and reduce step length 

C if large increase occurs 

C Restart at smaller step size if BETA error occurs 

c + + + ’ 

C Restrictions: Cannot run over N or S pole; will get BETA blowup 

r + + + + + + * 


CLast Mod 17 Feb 99 
C Mod 18 Jan 97 
C Mod Jan 97 
C Mod Jun 96 
C Mod Jun 96 
C Mod FEB 96 


C. 

C 

C 

C 

C 

C 

C 

C. 

C 

C 


if {ymax . It . 6 . 6) IFATE = 3 

Patch high latitude beta problem 

High latitude step size adjust, introduce AHLT 

EDIF limit set to l.Oe-5 

lERRPT formats. Boundary and look ahead 

standard reference TJIV (line check 17 Feb) 


Programmer - Don F. Smart; FORTRAN77 

Note - The programming adheres to the conventional FORTRAN 
default standard that variables beginning with 
’i','j’,'k','l','m',or ’n’ are integer variables 
Variables beginning with ”c" are character variables 
All other variables are real 

+ + + + + + • 

Do not mix different type variables in same common block 

Some computers do not allow this 


IMPLICIT INTEGER (I-N) 
IMPLICIT REAL * 8 (A-B) 
IMPLICIT REAL * 8 (D-H) 
IMPLICIT REAL * 8(0-Z) 


COMMON /WRKVLU/ F (6 ) , Y (6 ) , ERAD, EOMC, VEL, BR, BT, BP , B 
COMMON /WRKTSC/ TSY2 , TCY2 , TSY3 , TCY3 
COMMON /TRIG/ PI , RAD , PI02 

ERADPL, ERECSQ 

SALT , DISOUT , GCLATD , GDLATD , GLOND , GDAZD , GDZED , 
RYl , RY2 , RY3 , RHT , TSTEP 
LIMIT , NTRAJC , lERRPT 


COMMON /GEOID/ 
COMMON /SNGLR/ 


COMMON /SNGLI/ 


DIMENSION P(6) ,Q(6) ,R(6) ,S(6),YB{6) , FOLD (6) , YOLD(6) 


CHARACTER*! CF,CR 
CHARACTER* 6 CNAME 


DATA CF , CR / ' F ' , ' R ’ / 
DATA CNAME / ' 195 '/ 


IF ( lERRPT . GT . 0 ) WRITE (16,2000) PC, INDXPC , RYl , RY2 , RY3 
2000 FORMAT (' SINGLTJ ' , F8 . 3 , 18 , 3F8 . 4 ) 

BETAST =2-0 
LSTEP = 0 
KBF = 0 


C 

C. 

C 


\/ Runge-Kutta constants 


RC106 = 1. 0/6.0 
SR2 - SQRT (2.0) 

TMS202 = (2 . 0-SR2) /2 . 0 
TPS202 = (2.0+SR2)/2.0 


### 
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491 

492 

493 

AC\A 

c 

c 

c 

\/ Initialize Runge-Kutta variables to zero 

...+.... 

494 

495 

c . . . . 
c 



496 

100 

DO 110 I = 1, 6 


497 


YB(I) = 0.0 


498 


S(I) = 0.0 


499 


R(I) = 0.0 


500 


Q(I) = 0.0 


501 


P(I) = 0.0 


502 


F(I) = 0.0 


503 

110 

CONTINUE 


504 

c 



505 


NMAX = 0 


506 


NMIN = 0 


507 


NSTEP = 0 


508 


NSTEPT = 0 


509 

c 



510 


TAU =0.0 


511 


TUlOO = 0.0 


512 


YMAX = RYl 


513 

c 



514 

c. . . . 



515 

c 

\/ Define initial point at start of trajectory 


516 

517 

c. . . . 
c 



518 


Y(l) = RYl 


519 


Y(2) = RY2 


520 


Y(3) = RY3 


521 


GRNDKM = (ERADPL/SQRT (1 . 0-ERECSQ*TSY2SQ) ) 


522 


YIO = (RHT+GRNDKM) /ERAD 


523 


R120KM = (ERAD+120 . 0) /ERAD 


524 

CO c 

c 


....+... 

525 

526 

c . . . . 
c 

Rigidity = momentum/ charge 


527 

c 

use oxygen 16 as reference isotope 


528 

c 

Constants used from Handbook of Physics (7-170) 


529 

C O 

c 

1 amu = 0.931141 GeV 


530 

c . . . . 



531 

c 



532 


ANUC =16.0 


533 


ZCHARGE =8.0 


534 

c 



535 


EMCSQ = 0.931141 


536 


TENG = SORT ( (PC*ZCHARGE) **2+ (ANUC*EMCSQ) **2) 


537 


EOMC = -8987.566297*ZCHARGE/TENG 


538 


GMA = SQRT( ( (PC*ZCHARGE) / (EMCSQ*ANUC) ) ♦*2+l . 0) 


539 


BETA = SQRT (1 . 0-1 . 0/ (GMA*GMA) ) 


540 


PVEL = VEL*BETA 


541 


HMAX = 1.0/PVEL 


542 


disck = disout - 1 . l*hmax*pvel 



543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 


c 

C- 

c 

c 

c 

c 

c. 

c 


+ + 

\/ set max step length ("HMAX") to 1 earth radii 

PVEL is particle velocity in earth radii per second 
DISCK is check for approaching termination boundary 
(within 1.1 steps) 


EDIF = BETA*1.0E-4 
if (edif . It . 1 . 0 -5) 
if (beta . It . 0 . 1) 

Y(4) = BETA*Y1GC 
Y(5) = BETA^Y2GC 
Y(6) = BETA*Y3GC 

azd = gdazd 
zed = gdzed 


edif = l.Oe-5 
edif = l.Oe-4 
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561 

562 

563 

c 


lAZ * AZD+0.01 
IZE = ZED+0.01 

565 

c 


\/ Set HSTART to about 1 % of the time to complete one gyro- radius 

566 

c 


in a 1 Gauss field 

567 

c 


H = [ (2 . 0*PI*33 . 333*PC) / {BETA*0 ] /O . 01 

568 

c 


if restart after BETA error, set HCK to small value 

569 

c 


Introduce AHLT to control step size at high lat (beta problem) 

570 

c 


HCK - reduce step size when large acceleration 

571 

c 


HOLD - last step size used 

572 

c 


HCNG - only allow 20% max growth in step size 

573 

c 


HSNEK - attempt to approach boundary quickly 

574 

c 


Problem at z=90 at high lat 

575 

c 


add zen angle in deg to reduce first step 


_ 



J / o 

577 

L . 

c 



578 



PTCY2 == ABS{TCY2) 

579 



AHLT = (1.0 + PTCY2)*^2 

580 



HSTART = 6.0E-6*PC/(BETA*AHLT + ZED*PTCY2) 

581 



IF (HSTART.lt. 1 . OE- 6) HSTART = l.OE-6 

582 



HOLD = HSTART 

583 



HCK = HSTART 

584 



HCNG = HSTART 

585 

c 



586 

c 


WRITE (16, 2010) HMAX,HOLD,HCK,HCNG,Y(4) , Y{5) , Y(6) , PVEL, NSTEP 

587 

C2010 

FORMAT {' 2010 ' , 10X, 4F9.6, 3F9.4, F9 . 4 , 9X, 15X, 16 ) 

588 

c 







joy 

590 

c 


Start Runge-Kutta 

591 

c 


\/\/\/\/\/\/\/\/ 

592 

c 


\/\/\/\/\/\/ 

593 

c 


\/\/\/\/ 

594 

c 


\/\/ 

595 

c 


\/ 





j?o 

597 

c 


Change in step size criteria, Aug 97 

598 

c 


remove cos VxB step size, causes problems in tight loops 

599 

c 


step size is now only a function of B and BETA 





601 

c 



602 


130 

IF (HCK.LT. 1 . OE-6) HCK = l.OE-6 

603 



CALL FGRAD 

604 



HB = 1 .6E-5*PC/ (B*BETA) 

605 



H = HB/BETAST 

606 

c 



607 



IF (KBF.GT.O) H=H/ (FLOAT (KBF*2) ) 

608 



IF (H.GT.HMAX) H = HMAX 

609 



IF (H.GT.HCNG) H = HCNG 

610 



IF (H.GT.HCK) H = HCK 

611 

c 



612 



DO 140 I = 1, 6 

613 



S(I) = H*F(I) 

614 



P(I) = 0.5*S(I) -Q{I) 

615 



YB(I) = Y(I) 

616 



Y(I) = Y(I)+P(I) 

617 



R(I) = Y(I) -YB(I) 

618 



Q(I) = Q(I)+3.0*R(I) -0.5*S(I) 

619 


140 

CONTINUE 

620 

c 



621 



CALL FGRAD 

622 

c 



623 



DO 150 I = 1, 6 

624 



S(I) = H*F(I) 

625 



P(I) = TMS202*(S(I)-Q(D) 

626 



YB(I) = Y(I) 

627 



Y(I) = Y(I)+P(I) 

628 



R(I) = Y(I)-YB(I) 

629 



Q(I) = Q(I)+3.0*R(I) -TMS202*S(I) 

630 


15C 

) CONTINUE 
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631 

C 



632 


CALL FGRAD 


633 

C 



634 


DO 160 I = 1, 6 


635 


S(I) = H*F(I) 


636 


P(I) = TPS202* (S (I) -Q(I) ) 


637 


YB(I) = Y(I) 


638 


Y(I) = Y(I)+P{I) 


639 


R(I) = Y(I)-YB(I) 


640 


Q(I) = Q(I)+3.0*R(I)-TPS2O2*S(I) 


641 

160 

CONTINUE 


642 

C 



643 


CALL FGRAD 


644 

C 



645 


DO 170 I = 1, 6 


646 


S(I) = H*F(I) 


647 


P(I) = RC106*(S(I) -2.0*Q(D) 


648 


YB(I) = Y{I) 


649 


Y(I) = Y(I)+P(I) 


650 


R(I) = Y(I)-YB(I) 


651 


Q{I) = Q(I)+3.0*R(I)-0.5*S(I) 


652 

170 

CONTINUE 


653 

C 



654 

c. . . . 



655 

c 

/\ 


656 

c 

/\/\ 


657 

C 

/\/\/\/\ 


658 

C 

/\/\/\/\/\/\ 


659 

C 

/\/\/\/\/\/\/\/\ 


660 

c 

One Runge-Kutta 


661 

c 

step completed 


662 

C. . . . 



663 

C 



664 


NSTEP = NSTEP+1 


665 


NSTEPT = NSTEPT + 1 



666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 


TAU = TAU+H 
HOLD = H 
HCNG = H*1.2 
HCK = HCNG 
C 

c. 
c 
c. 
c 
c 

c * 

C2030 FORMAT 
C2040 FORMAT 
C 


. + • • 


\/ Emergency diagnostic printout if desired 

+ 

H, Y{1) ,Y(2) ,Y(3) . PVEL,B, NSTEP 
HB, H,HMAX, HOLD, HCK, HCNG, Y{4) ,Y{5) ,Y{6) , 
PVEL,B,NSTEP 

9X F9.6, 36X, 3F9 . 5 , F9 . 4 , F9 . 5 , 18X, 

6F9.6, 3F9.5,F9.4,F9.5,18X, 


WRITE 

WRITE 


(16, 

(16, 


2030) 

2040) 


(’ 


2030 

2040 


16) 

16) 


C. 

c 

c 

c 

c 

c 

c 

c 


+ - - " ^ 

\/ Check for altitude less than 100 km ki=i-» 

if less than 120 km, compute exact altitude above oblate earth 
and sum time trajectory is below 100 km altitude, 
set re-entrant altitude at RHT km above oblate earth 
computed from international reference ellipsoid 

- - "*• 

IF (Y(l) .LT.R120KM) THEN 
TSY2SQ = SIN(Y(2) ) **2 

GRNDKM = (ERADPL/SQRT(1.0-ERECSQ*TSY2SQ) ) 

RIOOKM = (100 . 0+GRNDKM) /ERAD 

R120KM = (120 . 0+GRNDKM) /ERAD 

IF (Y(l) .LT. RIOOKM) TUlOO = TUIOO+H 
PSALT = Y(l) *ERAD-GRNDKM 
YIO = (RHT+GRNDKM) /ERAD 

IF (NSTEP.GT.5) THEN 

IF (Y(l) .LT. YIO. OR. PSALT. LE. 0.0) THEN 

IF (IERRPT.GT.2) WRITE (16, 2045) PSALT, Y(l), 

IRT = -1 


YIO 
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701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 


GO TO 260 
ENDIF 
ENDIF 

2045 F^T (- 2045 PSALT , Y (1) , YXO ' . FIO . 6 , 1PE14 . 6 , E14 . 6 ) 


c + - 


\/ Begin error checks 

(1) Check for unacceptable changes in BETA 

.... + 

RCKBETA = SQRT(Y{4) *Y(4)+Y{5) *Y(5)+Y(6)*Y(6) ) 

TBETA = BETA- RCKBETA 
IF (ABS (TBETA) .GT.EDIF) THEN 
KBF = KBF+1 

BETAST = BETAST + AHLT 
EDIF = 2.0*EDIF 

IF (RCKBETA. GT. (1.0+EDIF) ) THEN 

BETAST = BETAST + FLOAT (KBF) * (1 . 0+AHLT) 
WRITE (*,2050) KBF, BETA, RCKBETA 
(*,2060) Y,H,PC,NSTEP 
(16,2050) KBF, BETA, RCKBETA 
(16,2060) Y,H,PC,NSTEP 


WRITE 
WRITE 
WRITE 
ENDIF 


WRITE (16,2070) 
WRITE ( *,2070) 


PC, BETA, KBF, RCKBETA, NSTEP, TBETA, Y, H 
PC, BETA, KBF, RCKBETA, NSTEP, TBETA, Y,H 


- " 

\/ Check for irrecoverable beta error 

'if KBF > 4, set fate to failed and start next rigidity 

- - " 

IF (KBF. It. 5) THEN 
GO TO 100 
ELSE 

IRT = 0 

PATH = -PVEL*TAU 
ISALT = SALT+0.0001 
WRITE (*,2080) 

GO TO 280 
ENDIF 
ENDIF 

/I nncn • I ifuTT- ’ is 5x ' error, the velocity of the 
^“^°/°Tarticir%ETArh;s' exceeded the velocity f l^ht '/ 

. . BETA at Start of trajectory was 

i, 1 BETA now equals ' ' ^ 

* , reduce step size and try again ' ) 

2060 ' , 'Y,H,PC,NSTEP=' ,8F12.6,I10) 

2070 ' , 'ERROR, Particle BETA changed; ’ , 

PC = ' ,F10-6, ' GV'/ 

Beta at start was • , FIO . 7 . 17X, • KBF= ' , 16/ 

Beta new equals ■ , FIO . 7, lOX, ■ step nutnber 
Beta difference ',F10.7/ i 

step length reduced and trajectory recalculated 

Y= ' , 6F12 . 6 , 6X, ' H=',F15.7) 


2060 FORMAT 
2070 FORMAT 


6x, 

6x, 

6x, 

6x, 

6x, 


, 16 / 




2080 


format ( ' 2080 ' , ' irrecoverable BETA error problem /6x, 
^Lt tlte to Failed 6 make path length negative -/6x 
- Terminate this trajectory t continue with program ) 


C 

c 

c 

c 

c 

c 




\/ Continue status checks 

(2) Compute composite acceleration 


2090 


ACCER = SQRT(F(4)*F(4)+F(5)*F{5)+F(6)*F(6)) 
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771 

772 

773 

774 

775 

776 
111 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 


. , . + + + + • • ; + 

\/ Continue status checks, make adjustment latitude dependant 

(3) Monitor change in composite acceleration 

If composite acceleration (new-old) change > 5 
If composite acceleration (new/old) ratio > 2 
change step size to a smaller value 


. . . + . 




. . + + • 


2100 


2110 


IF (NSTEP.GE.2) THEN 

IF (ACCER.GT.ACCOLD) THEN 
DELACC = ACCER-ACCOLD 
IF (DELACC. GT. 5.0) THEN 
HCK = HCK/(1.0+AHLT) 

IF (lERRPT .GT . 2) WRITE (16,2100) 

. H, HCK, y(l) .DELACC, PC, NSTEP 

RFA = ACCER/ACCOLD 
IF (RFA. GT. 2.0) THEN 

HCK = HCK/ (1.0+AHLT) 

IF (lERRPT .GT . 2) WRITE (16,2110) 

, H,HCK,Y(1) ,RFA,PC,NSTEP 

ENDIF 

ENDIF 

ENDIF 

FORMAT C 2100 ' , ' H-REDUCE ' , 2x, ' H= ' , F8 . 6 , 2x, ’HCK= ' , F8 . 6 , 2x, 

' Y (1) = ' , f7 . 4 , 2X, 'DELACC=' , F6 .2,4X, ' PC= ' , F8 .3,4X, 'NSTEP- ,18) 

FORMAT (' 2110 H-REDUCE ', 2x, ' H= ', F8 . 6 , 2x, ' HCK= ', F8 . 6 , 2x, 

•m) = ' ,fV.4,4X, ' RFA=' ,F6.2,4X, *PC=' ,F8.3,4X, ’NSTEP= ,18) 

+ + 

\/ continue status checks, make adjustment latitude dependant 

(4) Monitor cheinge in acceleration components 

If change in any acceleration component is more than 
a factor of 3, reduce step length 
t ..........4 - - 

DO 200 ICK =4, 6 

AFOLD = ABS (FOLD (ICK) ) 

IF (AFOLD. GT. 3.0) THEN 

RFCK = ABS (F (ICK) /AFOLD) 

IF (RFCK. GT. 3.0) THEN 
HCK = HCK/ (1.0+AHLT) 

IF (lERRPT. GT. 2) THEN 

WRITE (16,2120) H,HCK,Y(1) , NMAX, ICK, F ( ICK) , 

. ICK, FOLD (ICK) , PC, NSTEP 

ENDIF 
ENDIF 


200 


ENDIF 

CONTINUE 


ENDIF 


2120 FORMAT 


' 2120 
'Y(l) = 
' FOLD ( 


’ , ' H- reduce ' , 2X, *H= ' , F8 
, F7 . 4 , 2X, 'NAMX= ' , 14 , 2X, 
r Hr 


.6,2X, 'HCK=' ,F8.6,2X, 
'F( Ml, ' ) = ' ,F6 .2, 2X, 


, F6 . 2 , 2X, ' PC= ' , F6 . 3 , 2X, ' NSTEP= ' , 16) 


ACCOLD = ACCER 


C. 


.... + 

/\ Error checks complete 

\/ Find if a max or a min has occurred 

^ + 


IF (NSTEP. GT.l) THEN 

IF (Y0LD(4) .LE.0.0.AND.Y(4) .GT.0.0) NMIN = NMIN+1 
IF (Y0LD(4) .GE.0.0.AND.Y(4) .LT.0.0) NMAX=NMAX+1 
ENDIF 


IF (Y(l) .GT.YMAX) YMAX = Y(l) 
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841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 


c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 


+ + 

\/ Check for termination conditions 

Allowed - radial distance exceeded disout 

Failed - number of steps exceeded 

Re-entrant - trajectory is below •’top" of atmosphere 


. . , + + ; 

\/ (1) Check for step limit exceeded 




IF (NSTEP.GE .LIMIT) THEN 
IRT = 0 
GO TO 260 
ENDIF 


\/ ( 2 ) 


Check if yd) within 1.1 max step lengths of disout. 
if so, reduce step size and 

approach boundary at smaller step 

^ 


IF 


Y(l>] 


HCNG 

HCK 


= HSNEK 
= HSNEK 


{y(D .gt.disck) then 

DISTR = ABS (DISOUT - 
HSNEK = DISTR/ PVEL 
HCNG = HCNG/2.0 
HCK = HCK/ 2.0 
IF (HSNEK .LT. HCNG) 

IF (HSNEK .LT. HCK) 

DISCK « DISOUT - DISTR/2.0 
IF (DISCK. GE. DISOUT) THEN 
DISCK = 24 . 999 
GO TO 210 
ENDIF 

IF (H.LT.l.OE-5 .OR. HCK.LT.l.OE 
H = l.OE-5 
HCK = l.OE-5 
HCNG = l.OE-5 
ENDIF 


■5 .OR. HCNG.LT.l.OE-5) THEN 


IF (IERRPT.GT.3) WRITE (16,2130) Y (1) , DISCK. PVEL, H, HSNEK, NSTEP 


210 


IF (Y(l) .GT. DISOUT) 
IF (H.LE.l.OE-5) 
IRT = 1 
GO TO 260 
ENDIF 

TAU = TAU - H 
DO 220 I 5= 1, 6 


THEN 

THEN 


Y(I) = 
F(I) = 

220 CONTINUE 

end if 
GO TO 130 
ENDIF 

2130 FORMAT (' 2130 


YOLD ( I ) 
FOLD (I) 


, 2X, 'Y (1) , DISCK, PVEL , H , HSNEK ’ , 


C 

C 

c 

c 

c 

C 

C 


4X, 1PE12 -6,4X,E12 .6,4X,E12 .6,4X,2E9 -2,22X. 16) 

+ 

\/ Have penetrated boundary if you are here. 

if large step size, go back one step and 
reduce step length (and adjust "TAU ) 




230 IF (Y(l) .GT. DISOUT) THEN 

IF (IERRPT.GT.3) WRITE (16, 2140) y(D 


if 


{h.lt.l.Oe-5 
IRT = 1 


.or. hck.lt -l.Oe-5 .or. 


disck, pvel , H, nstep 
hcng . It . 1 ■ Oe- 5 ) then 
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911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 


go to 260 
else 

hck = hck/2 . 0 
hcng = hcng/2.0 
TAU = TAU - H 
DO 240 I = 1, 6 
Y(I) = YOLD(I) 

F(I) = FOLD(I) 

240 CONTINUE 

GO TO 130 
ENDIF 
ENDIF 

2140 FORMAT (' 2140 ' , 2x, ' y (D , disck. pvel , H« . 

^ 4x,lpel2.6,4x,el2.6,4x,el2.6,4x,e9.2,27x, 16} 

C 

C. . 

C 

c. . 
c 


\/ store values of Y and F 

^ + 


as FOLD 6c YOLD 

. . + • ■ • 


-f . 


DO 250 I = 1, 6 
YOLD(I) = Y(I) 

FOLD (I) = F(I) 

250 CONTINUE 
C 

GO TO 130 

C ^ ^ + . 


C* 

c 

c 

c 

c 

c. 

c 


********** 

********** 

********** 

TRAJECTORY COMPLETE IF YOU ARE HERE 

^ + + 


. . + • 


260 CONTINUE 

IF (Y(l) .GE.DISOUT) IRT = 1 
PATH = PVEL^TAU 
ISALT = SALT+0.0001 
LSTEP = BETAST - 1.9 


C 

C 

C 

C 

C 

C 

C. . . . 
c 


+ • 


. . . + . . . 

\/ Write out results 

IRT +1 ALLOWED 

0 FAILED 

IRT -1 RE-ENTRANT 

. . + 


(FATE = 0) 
(FATE = 2) 
(FATE = 1) 
+ . 


IF (IRT.GT.O) THEN 
TCY2 = COS(Y(2)> 

TSY2 ^ SIN(Y(2)) 

YDA5 = Y(5) *TCY2+Y(4) *TSY2 
ATRGl = Y(4)^TCY2-Y(5)*TSY2 
ATRG2 = SQRT(Y(6)*Y(6)+YDA5*YDA5) 

FASLAT =0.0 

IF (ATRGl . NE . 0 . 0 .AND .ATRG2 .NE . 0 . 0) FASLAT - 


ATAN2 (ATRGl , ATRG2 ) *RAD 


FASLON = Y(3)*RAD 
IF (Y(6) .NE. 0.0. AND 


.YDA5.NE.O.O) FASLON = (Y (3) +ATAN2 (Y (6) . 
YDA5 > ) *RAD 

IF (FASLON.lt. 0.0) FASLON = FASLON+360 . 0 

IF (FASLON. GT. 360.0) FASLON = FASLON-360.0 

WRITE (8 2150) GDLATD, GCLATD, GLOND, IZE, lAZ, PC, FASLAT, ^I^N, 

PATH , NMAX , NSTEP , TUIO 0 , YMAX , LSTEP . SALT , CNAME 

WRITE ~{ 7 % 160 } GDLATD,GL0ND, PC, ZED, AZD, ISALT, FASLAT, FASLON, 

NSTEP , I FATE , CNAME 
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981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 


ENDIF 

2150 FORMAT {2F7 . 2 , F9 . 2 , 15 , 14 , FIO . 3 , 2F8 . 2 , Fll . 5 , 14 , 17 , F9 . 5 , F9 . 4 , 

^ I4,F11.1,1X,A6,13X) 

2160 FORMAT ( F7 . 2 , F8 , 2 , F9 . 3 , 2F6 . 1 , 17 , F7 . 2 , F8 . 2 , 17 , 3X. 13 , 3X, A6 ) 

C 

IF (IRT.LT.O) THEN 

RENLAT = (PI02-Y(2))*RAD 

RENIiON = Y(3) *RAD 

WRITE (8,2170) GDLATD, GCLATD , GLOND , IZE, lAZ , PC , CR, CR, PATH, NMAX 

* , NSTEP , TUI 00 , YMAX , LSTEP , SALT , CNAME , RENLAT , RENLON 
C 

WRITE (7,2180) GDLATD, GLOND , PC, ZED, AZD, I SALT, NSTEP , IFATE , CNAME 

2170 FORMAT (2F7 .2, F9 -2 , 15,14, FIO . 3, 5X,A1, 2X, 5X, Al, 2X, Fll .5,14,17, 

* F9 . 5, F9 .4 , 14, Fll . 1, IX, A6, F6 .1, F7 . 1) 

2180 FORMAT (F7 . 2 , F8 . 2 , F9 . 3 , 2F6 . 1 , 17 , 4X, *R' ,7X, 'R' , 19 , 3X, 13 , 3X, A6) 

C 

280 IF (IRT.EQ.O) THEN 

^ WRITE (8,2190) GDLATD, GCLATD, GLOND , IZE , I AZ, PC, CF, CF, PATH, 

* NMAX , NSTEP , TUI 00 , YMAX , LSTEP , SALT , CNAME 
C 

IFATE = 2 

IF (YMAX, LT, 6 .6) IFATE =3 

WRITE (7,2200) GDLATD, GLOND, PC, ZED, AZD , I SALT, NSTEP, IFATE, CNAME 

END I F 

2190 FORMAT (2F7 . 2 , F9 . 2 , 15 , 14 , FIO . 3 , 5X, Al , 2X, 5X, Al , 2X, Fll . 5 , 14 , 17 , 

* F9.5,F9 . 5, 14, Fll . 1, 1X,A6, 13X) 

2200 FORMAT (F7 . 2 , F8 . 2 , F9 . 3 , 2F6 . 1 , 17 , 4X, 'F* ,7X, ' F ' , 19 , 3X, 13 , 3X, A6) 

C 

NTRAJC = NTRAJC+1 

TSTEP = TSTEP+FLOAT (NSTEP) 

c - * " " 

C \/ Comment out to reduce 10 

C ... + + ^ 

C 

C WRITE (*,2210) PC, ZED, AZD, NSTEP, IFATE 

C2210 FORMAT (1H+, 22X, 3F7 . 2 , 7x, 216 ) 

C 

IRSLT = IRT 

RETURN 

END 

SUBROUTINE FGRAD 

C + + ;• + 

C Mod Feb 96 standard reference TJIV (line check 17 Feb) 

C Mod 27 Jan 1999 Change MAGNEW to NEWMAG95 

C + ^ ^ ^ 

C Programmer - Don F. Smart; FORTRAN77 

C Note - The programming adheres to the conventional FORTRAN 

C default standard that variables beginning with 

C 'i','j‘,’k','l',’m',or 'n' are integer variables 

Q Variables beginning with "c" are character variables 

C All other variables are real 

(;;; + + + 

c Do not mix different type variables in same common block 

C Some computers do not allow this 

C + + ^ 

C 

IMPLICIT INTEGER (I*N) 

IMPLICIT REAL * 8 (A-B) 

IMPLICIT REAL * 8 (D-H) 

IMPLICIT REAL * 8 (O-Z) 

? • ' 

COMMON /WRKVLU/ F (6) , Y (6) , ERAD, EOMC, VEL, BR, BT, BP, B 


### 
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1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
nil 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 


COMMON /WRKTSC/ TSY2 , TCY2 , TSY3 , TCY3 


C 

c. . 
c 


, . . . + 


F{1) = VEL*Y{4) 

F(2) = VEL*Y{5) /Y(l) 

TSY2 = SIN(Y(2) ) 

TCY2 = COS(Y(2)) 

= VEL*Y{6) / (Y(l) *TSY2) 

= Y{6) *Y(6) /Y(l) 

Y50Y1 = Y(5)/Y(l) 

TAY2 = TSY2/TCY2 
CALL MAGNEW95 

F{4) = EOMC* (Y(5) *BP-Y(6) *BT) +VEL* (Y(5) *Y50Y1+SQY6) 

F(5) = eOMC^ (Y (6) *BR-Y (4) *BP) +VEL* (SQY6/TAY2-Y50Y1*Y (4) ) 

EOMC* (Y(4) *BT-Y(5) *BR) -VEL* ( (Y50Y1*Y{6) ) /TAY2+Y{4) *Y(6) / 
Y(l) ) 


F{3) 

SQY6 


F(6) 


### 


C 

C. . 

C 

C 

C 

C 

C 

C 

C 

C 

c. . 
c 


c 

c. . . 

c 

c 

c 

c 

c 

c. . . 


RETURN 

Y(l) 
Y(3) 
Y(5) 
F(l) 
F(3) 
F{5) 

BR 
BP 

. . . . + 


END 

SUBROUTINE MAGNEW95 


is 

R coordinate 

Y(2) 

is 

THETA coordinate 

is 

PHI coordinate 

Y(4) 

is 

V(R) 

is 

V (THETA) 

Y(6) 

is 

V(PHI) 

is 

R dot 

F(2) 

is 

THETA dot 

is 

PHI dot 

F(4) 

is 

R dot dot 

is 

THETA dot dot 

F(6) 

is 

PHI dot dot 

is 

B(R) 

BT 

is 

B (THETA) 

is 

B(PHI) 

B 

is 

magnitude of magnetic field 


C 

C 

C. . . 
C. . 

c 

c 

c 

c 

c 

c 

c. . 

c 

c 

c. . 
c 


c 

c. 

c 


c 

c. 

c 


Compute Magnetic field 

Derived from NASA (NSSDC) routine NEWMAG version of December 1965 
modified for 10 order field 
Coefficients for IGRF 1995 loaded into this subroutine 
Coefficients obtained from program CNGMAGN 

...+ ^ ^ * 

IGRF 95 coefficients 

standard reference TJIV (line check 17 Feb) 
for arguments in labeled common 

^ + + + 


CLast Mod 27 Jan 1999 


### 


### 


### 


Mod 

Mod 


Feb 1996 
Nov 1980 
+ . . 




Programmer - Don F. Smart; FORTRAN77 

Note - The programming adheres to the conventional FORTRAN 
default standard that variables beginning with 
'i','j','k’,'l‘,’m',or 'n* are integer variables 

Variables beginning with "c" are character variables 
All other varicLbles are real 

+ + + + * 

Do not mix different type vari^les in same common block 

Some computers do not allow this 

- - - "• 

IMPLICIT INTEGER (I-N) 

IMPLICIT REAL * 8 (A-B) 

IMPLICIT REAL * 8 (D-H) 

IMPLICIT REAL * 8(0-Z) 


COMMON /WRKVLU/ F (6) , Y (6 ) , ERAD, EOMC, VEL, BR, BT, BP, B 
COMMON /WRKTSC/ TSY2 , TCY2 , TSY3 , TCY3 


DIMENSION 


G(ll,ll) ,BM(11) 
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1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 


c. 

c 
c 
c 
c 
c 
c 
c 
c. 
c 

c 
c. 
c 
c 

Cards for FORTRAN 


\/ Load in data constants if this is the first time called 
otherwise, skip to evaluation of magnetic field 
designed to drop high order terras if contribution 
would be less then "BERR" 
also designed so the maximum order of expansion 
can be specified 

4 . + + + + + 


IF (JDATA.EQ.77) GO TO 120 

. . . . + + + + + 

Gauss normalized Schmidt coefficients ordered for 


. . . + + . . 

fast computation 


1995.00 Coef 

DATA(G(N, 1),N=1, 
c, 0.296820E+05, 
c, 0.165375E+04, 
c, -0 .379844E+03, 

C 0 .541277E+03/ 
DATA(G(N, 2),N=1, 

C, 0.178900E+04, 
c, - 0 .357864E+04, 

C, -0 .114663E+04, 

C 0.973144E+03/ 
DATA(G(N, 3),N=1, 

C, 0 .368061E+03, 
c, -0.182140E+04, 
c, -0 .108650E+03, 
c -0 .421384E+03/ 
DATA(G(N, 4),N=1,11)/ 


in CNGMAG format 
11)/ O.OOOOOOE+00 
0 .329550E+04, -0 

-0 . 952875E+03, -0 


.332250E+04, 

.209137E+04, 


11) / -0.531800E+04 

-0.532432E+04, 0 

-0 .120980E+04, 0 


.694430E+04 , 
.237646E+04, 


11)/ 0.408071E+04 

-0.145925E+04, -0 

- 0 . 971375E+03, -0 


0 .805270E+03 


1154 

c. 

-0.584820E+03, 0. 

1155 

c , 

0 . 574158E+03, 0. 

1156 

c. 

0 . 995794E+03, 

1157 

c 

0.826402E+03/ 

1158 

DATA(G(N, 5),N=1,11)/ 

1159 

c. 

0 . 907844E+03, -0. 

1160 

c. 

0.370495E+03, -0. 

1161 

c. 

-0.507382E+03, 

1162 

c 

0.233742E+03/ 

1163 

DATA(G(N, 6),N=1,11)/ 

1164 

c. 

-0.120658E+04, 0. 

1165 

c. 

0 . 182406E+02 , -0. 

1166 

c, 

0 . 134764E+03, 

1167 

c 

-0 .295662E+03/ 

1168 

DATA(G(N, 7),N=1,11)/ 

1169 

c , 

-0 .115071E+04 , -0. 

1170 

c , 

-0.188074E+02, 0. 

1171 

c. 

0 .347959E+02| 

1172 

c 

-0 .123960E+03/ 

1173 

DATA(G(N, 8) ,N=1,11)/ 

1174 

c, 

0 . 724020E+03, -0 

1175 

c, 

0 .557020E+02, 0 

1176 

Cl 

, -0.527347E+02, 

1177 

c 

-0 .200432E+02/ 

1178 

DATA(G(N, 9) ,N=1,11)/ 

1179 

c I 

^ 0.112165E+04, -0 

1180 

C| 

, -0 . 686523E+02, 0 

1181 

C| 

, 0 . OOOOOOE + 00, 

1182 

c 

-0.245478E+02/ 

1183 

DATA(G(N, 10) ,N=1, 11) / 

1184 

c 

, -0.162975E+04, -0 

1185 

c 

, -0.156581E+03, -0 

1186 

c 

, 0.365430E+01, 

1187 

c 

-0.796435E+01/ 

1188 

DATA(G(N, 11) ,N=1,11) / 

1189 

c 

, -0 .210692E + 03, -0 

1190 

c 

, 0 . OOOOOOE+OO, 0 


241868E+04 , 
289608E+02, 


.607948E+03, 
. 593873E + 03 , 


-0 .144990E+04 
204982E+03, 0 

L09137E+02, -0 


-0.447330E+03 


222593E+03 , 
493957E+02, 


. 141986E+03, 
.493957E+02, 


0 .302450E+03 
667509E+03, 0 

631392E+02, -0 


0 . 273116E+04 


-0 . 804375E+03 
.289937E+03, 0 

. 426161E4-02, 0 


0.242067E+04 
12811E+03, 0 

27347E+02, 0 


311041E+03 , 
242182E+02, 


, 271676E + 03 , 
.129452E+01, 


561461E+03 , 
626707E+01 , 


.394630E+03, 

.206718E+02, 


IGRF95 


-0 .486572E+03 
95841E+03, -0. 

D0864E+02, -0 


701225E+03, 

245478E+02, 


-0.411687E+04 

-0.120656E+04 


-0.432758E+04 
-0 .268125E+03 


-0 . 113872E+04 
0 . 560824E + 02 


0 . 8805B5E + 03 
0 .372776E+03 


-0 .857832E+02 
0 . 374307E + 03 


-0 .694545E+02 
-0 . 593223E+02 


-0.930726E+01 
-0 .343261E+02 


-0 : 987915E+02 
0 .OOOOOOE+00 


-0 .177967E + 03 
0 .438695E + 01 


0 .235837E + 03 
-0 . 609049E+00 


0 .295662E+03 
0 . 265478E + 01 
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1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 
1217 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


C, 0.356177E+01, 

c 0 .OOOOOOE+00/ 

DATA JMAG/ 0/,MGNMAX/ ll/,GSUM/ -0 . 885846E+05/ 
DATA BM/ 0.100078E+06 
c, 0.100078E+06, 0 . 396633E+05 , 

c, 0 . 684114E+04 , 0 . 360156E+04 , 

C, 0.489229E+03, 
c 0 .152640E+03/ 

1995.00 Coef in CNGMAG format 


0.253449E+05, 

0.197007E+04, 


0 , 134069E+05 
0.913524E+03 


IGRF95 


**^.****************^******^****^************^***^*^^*^*******^**** 

* The array G contains Gauss normalized Schmidt coef ficients 

* the array G contains both the G and H coefficients 

* G(l,l) = 0.0 , • j ^ 

*Schmidt G(N,M) corresponds to -G(NN+1,MM+1) Gauss normalized coef 
*Schmidt H(N,M) corresponds to -G{ MI ,NN+1> Gauss normalized coe 

* where MI = M 
^***********^****^^****^***********^****************^**’^***^***^** 

IF (GMSUM.EQ.O) GO TO 110 
P22 * 0. 

BERR = 0.0001 
AR = 0. 

DO 100 L = 1, MGNMAX 
DO 100 M = 1, MGNMAX 
AR = AR+1. 

P22 = P22+AR*G(M,L) 


1218 

100 

CONTINUE 


1219 


GMSUM = (GMSUM-P22) /GMSUM 


1220 

c 



1221 

1222 

c 

* * * 

\/ Note following print and stop statements 


1223 

1224 

c 

c 



1225 


IF (ABS (GMSUM) .GT.l.E-4) THEN 


1226 


WRITE (*, 2200) GMSUM 


1227 


WRITE (7, 2200) GMSUM 


1228 


WRITE (8, 2200) GMSUM 


1229 


STOP 


1230 


ENDIF 


1231 

2200 

FORMAT (' DATA WRONG IN MAGNEW' , E15 . 6) 


1232 

C 



1233 

110 

CONTINUE 


1234 

C 



1235 


GMSUM = 0. 


1236 


JDATA =77 


1237 

C 



1238 

120 

CONTINUE 


1239 


P21 = TCY2 


1240 


P22 = TSY2 


1241 


AR = 1.0/Y(1) 


1242 

C 



1243 

C 



1244 

C 

\/ N= 2 


1 245 

c. . . . 



1246 

c 



1247 


DP22 = P21 


1248 


TSY3 = SIN(Y(3) ) 


1249 


TCY3 = COS (Y(3) ) 


1250 


TSP2 = TSY3 


1251 


TCP2 = TCY3 


1252 


DP21 = -P22 


1253 


AOR = AR*AR*AR 


1254 


RC2 = G(2,2)*TCP2+G(1.2)*TSP2 


1255 


BR = -(AOR+AOR)*(G(2,l)*P21+RC2*P22) 


1256 


BT = AOR* (G(2,l) *DP2X+RC2*DP22) 


1257 


BP = A0R*(G(1,2)*TCP2-G(2,2)*TSP2)*P22 


1258 

c 



1259 

c 



1260 

c 

\/ N = 3 
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1261 c.. 

1262 c 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 c 

1282 c. 

1283 c 

1284 c. 

1285 c 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 c 

1308 c 

1309 c 

1310 c 

1311 c 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 


IF (MGNMAX.lt. 3) GO TO 130 
AOR = AOR*AR 

err = BERR^SQRT( (BP/P22) **2+BR**2+BT**2) 

IF ( (BM(3) *AOR) .LT.ERR) GO TO 130 

TSP3 = (TSP2+TSP2) *TCP2 

TCP3 = (TCP2+TSP2) * (TCP2-TSP2) 

P31 = P21*P21-0. 333333333 

P32 = P21*P22 

P33 = P22*P22 

DP31 = -P32-P32 

DP32 = P21*P21-P33 

DP33 = -DP31 

RC2 = G(3,2)*TCP2+G(1,3)*TSP2 
RC3 = G(3,3) *TCP3+G{2,3) *TSP3 

BR = BR-3.0*AOR*(G(3,1)*P31+RC2*P32+RC3*P33) 
BT = BT+AOR* (G(3, 1) ♦DP31+RC2*DP32+RC3*DP33) 
BP = BP-AOR^{(G(3,2)*TSP2-G(l,3)*TCP2)*P32+ 
* 2.0^ (G(3, 3) *TSP3-G(2, 3) *TCP3) *P33) 


\/ N = 4 


IF (MGNMAX.LT.4) GO TO 130 
AOR = AOR*AR 

IF ( (BM (4 ) *AOR) . LT . ERR) GO TO 130 

TSP4 = TSP2*TCP3+TCP2*TSP3 

TCP4 = TCP2*TCP3-TSP2*TSP3 

P41 = P21*P31 - 0 . 26666666* P21 

DP41 = P21*DP31+DP21*P31-0 . 26666666*DP21 

P42 = P21*P32-0.20000000*P22 

DP42 = P21*DP32+DP21*P32-0 . 20000000*DP22 

P43 = P21*P33 

DP43 = P21*DP33+DP21*P33 

P44 = P22*P33 

DP44 = 3.0*P43 

RC2 = G(4,2)*TCP2+G(1,4)*TSP2 
RC3 = G(4.3)*TCP3+G(2,4)*TSP3 
RC4 = G(4,4)*TCP4+G(3,4)*TSP4 

BR = BR-4.0*AOR*(G(4,1)*P41+RC2*P42+RC3*P43+RC4*P44) 

BT = BT+AOR* (G(4, 1) *DP41+RC2*DP42+RC3*DP43+RC4*DP44) 
BP - BP-AOR*( (G(4,2)*TSP2-G(l,4)*TCP2)*P42+ 

* 2 . 0* (G (4, 3) *TSP3-G (2, 4) *TCP3) *P43+ 

♦ 3.0* (G (4, 4) *TSP4-G{3,4) *TCP4) *P44) 

. . . . + + + 

\/ N = 5 


IF (MGNMAX.lt. 5) GO TO 130 
AOR = A0R*AR 

IF ( (BM(5) *AOR) .LT.ERR) GO TO 130 

TSP5 = (TSP3+TSP3) *TCP3 

TCP5 = (TCP3+TSP3) * (TCP3-TSP3) 

P51 = P2 1* P4 1 - 0 . 2 5714 2 85 *P31 

DP51 = P21*DP41+DP21*P41-0 . 25714285*DP31 

P52 = P21*P42-0.22857142*P32 

DP52 = P21*DP42+DP21*P42-0 . 22857142*DP32 

P53 = P21* P43 - 0 . 14 2 85714 *P33 

DP53 = P21*DP43+DP21*P43-0 . 14285714*DP33 

P54 = P21*P44 

DP54 = P21*DP44+DP21*P44 

P55 = P22*P44 

DP55 = 4.0*P54 

RC2 = G(5.2)*TCP2+G(1,5)*TSP2 
RC3 = G(5, 3) *TCP3+G(2, 5) *TSP3 
RC4 = G{5,4) *TCP4+G{3, 5) *TSP4 
RC5 = G(5,5)*TCP5+G(4,5)*TSP5 
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1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 


C 

C. 

c 

c. 

c 


c 

c. 

c 

c. 

c 


BR = BR-5 0*AOR^ (G(5.1)*P51+RC2*P52+RC3*P53+RC4*P54+RC5*P55) 
BT = bT+AOR*(G{5,1)*DP51+RC2*DP52+RC3*DP53+RC4*DP54+RC5*DP55) 

BP = BP-AOR* { (G{5, 2) *TSP2-G(1, 5) *TCP2) *P52+2 .0* (G(5,3) *TSP3- 

* G (2, 5) *TCP3) *P53+3 . 0* (G(5, 4) *TSP4- 

* G(3, 5) *TCP4) *P54+4 . 0* (G(5, 5) *TSP5- 

* G(4, 5) *TCP5) *P55) 


\/ N 


IF (MGNMAX.lt. 6) GO TO 130 
AOR = AOR*AR 

IF ((BM(6)*AOR) .LT.ERR) GO TO 130 

TSP6 = TSP2*TCP5+TCP2*TSP5 

TCP6 = TCP2^TCP5-TSP2*TSP5 

P61 = P21*P51-0.25396825*P41 

DP61 = P21*DP51+DP21*P51-0 . 25396825*DP41 

P62 = P21*P52-0.23809523*P42 

DP62 = P21‘*DP52+DP21*P52 -0 . 23809523*DP42 

P63 = P21*P53-0 .19047619*P43 

DP63 = P21*DP53+DP21*P53-0.19047619*DP43 

P64 = P21*P54-0 .11111111*P44 

DP64 = P21*DP54+DP21*P54-0 . 11111111*DP44 

P6S = P21*P55 

DP65 = P21*DP55+DP21*P55 

P66 = P22*P55 

DP66 = 5.0*P65 

RC2 = G(6,2) *TCP2+G(1,6) *TSP2 
RC3 = G{6, 3) ^TCP3+G(2,6) *TSP3 
RC4 = G(6,4)*TCP4+G(3,6)*TSP4 
RC5 ^ G(6,5)*TCP5+G(4,6)*TSP5 
RC6 = G(6,6)*TCP6+G(5.6)*TSP6 

BR = BR-6.0*AOR*(G(6,1)*P61+RC2*P62+RC3*P63+RC4*P64+RC5*P65 

* +RC6*P66) 

BT = bT+AOR* (G(6.1)*DP61+RC2*DP62+RC3*DP63+RC4*DP64+RC5 DP65 
BP = BP-AOR* ( (G(6, 2) *TSP2-G(1,6) *TCP2) *P62+2 . O* (G{6, 3) *TSP3 

* -G(2, 6) *TCP3) *P63+3 .0* (G(6. 4) *TSP4 

* -G(3 6) *TCP4> *P64+4 . 0* (G(6 , 5) *TSP5 

* _G(4,6)*TCP5)^P65+5.0*(G(6,6)*TSP6-G(5,6)*TCP6)*P66) 


- + 


\/ N = 7 


IF (MGNMAX.lt. 7) GO TO 130 
AOR = AOR*AR 

IF {(BM(7)*A0R) .LT.ERR) GO TO 130 

TSP7 = (TSP4+TSP4) *TCP4 

TCP7 = (TCP4+TSP4) * (TCP4-TSP4) 

P71 s P21*P61-0 . 25252525*P51 

DP71 = P21*DP61+DP21*P61-0 .25252525*DP51 

P72 = P21*P62-0.24242424*P52 

DP72 = P21'*DP62+DP21*P62 - 0 . 24242424 *DP52 

P73 = P21*P63-0.21212121*P53 

DP73 = P21*DP63+DP21*P63 -0 . 21212121*DP53 

P74 = P21*P64 -0 . 16161616*P54 

DP74 = p21*DP64+DP21*P64-0 . 16161616*DP54 

P75 = P21*P65-0 . 09090909*P55 

DP75 = P21*DP65+DP21*P65-0 . 09090909*DP55 

P76 = P21*P66 

DP76 = P21*DP66+DP21*P66 

P77 = P22*P66 

DP77 = 6.0*P76 

RC2 = G(7,2) *TCP2+G(l,7) *TSP2 
RC3 = G{7,3) *TCP3+G(2.7) *TSP3 
RC4 = G{7,4)*TCP4+G(3,7)*TSP4 
RC5 = G(7,5) *TCP5+G(4,7) *TSP5 
RC6 = G(7, 6) *TCP6+G(5, 7) *TSP6 





1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 
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RC7 = G{7,7)*TCP7+G(6,7)-^TSP7 

BR = BR-7.0*AOR* (G(7, 1) *P71+RC2*P72+RC3*P73+RC4*P74+RC5*P75 

* +RC6*P76+RC7*P77) 

BT = BT+AOR* {G(7,D *DP71+RC2*DP72+RC3*DP73+RC4*DP74+RC5*DP75 

* +RC6*DP76+RC7*DP77) 

BP = BP-A0R*((G{7,2)*TSP2-G(1,7)*TCP2)*P72+2. 

* -G(2, 7) *TCP3) *P73+3 .0* (G(7,4) *TSP4 

* -G{3, 7) *TCP4) *P74+4 .0^ (G(7, 5) *TSP5 

* -G(4,7) *TCP5) *P75+5 .0* (G(7, 6) *TSP6 

* -G{5,7) *TCP6) *P76+6.0^ (G (7 , 7) *TSP7-G (6 , 7) ^TCP7) *P77) 


.0^(G(7,3)*TSP3 


C 

C. 

C 


\/ N 


IF (MGNMAX.lt. 8) GO TO 130 
AOR = AOR*AR 

IF ( (BM{8) *AOR) .LT.ERR) GO TO 130 

TSP8 = TSP2*TCP7+TCP2*TSP7 

TCP8 = TCP2*TCP7-TSP2*TSP7 

P81 = P21*P71-0 .25174825*P61 

DP81 = P21*DP71+DP21^P71-0 . 25174825*DP61 

P82 = P21*P72-0 . 24475524*P62 

DP82 = P21*DP72+DP21*P72-0.24475524*DP62 

P83 = P21*P73-0.22377622*P63 

DP83 = P21*DP73+DP21*P73-0 .22377622*DP63 

P84 = P21*P74-0.18881118*P64 

DP84 = P21*DP74+DP21*P74-0 .18881118*DP64 

P85 = P21*P75-0 .13986013*P65 

DP85 - P21*DP75+DP21*P75-0 . 13986013*DP65 

P86 = P21*P76>0.07692307*P66 

DP86 = P21*DP76+DP21*P76“0.07692307*DP66 

P87 = P21*P77 

DP87 = P21*DP77+DP21*P77 

P88 = P22*P77 

DP88 = 7.0*P87 

RC2 = G(8, 2) *TCP2+G (1, 8) *TSP2 
RC3 = G(8,3) *TCP3+G(2, 8) *TSP3 
RC4 = G{8,4)*TCP4+G(3,8)*TSP4 
RC5 = G(8,5)*TCP5+G(4,8)*TSP5 
RC6 = G(8,6)*TCP6+G(5,8)*TSP6 
RC7 = G(8,7)*TCP7+G(6,8)*TSP7 
RC8 = G(8,8)*TCP8+G(7,B)*TSP8 

BR = BR-8 . 0*AOR* (G (8, 1) *P81+RC2*P82+RC3*P83+RC4*P84+RC5*P85 

* +RC6*P86+RC7*P87+RC8*P88) 

BT = BT+AOR* (G (8, 1) *DP81+RC2*DP82+RC3*DP83+RC4*DP84+RC5*DP85 

* +RC6*DP86+RC7*DP87+RC8*DP88) 

BP = BP-AOR^((G(8,2)*TSP2-G(l,8)*TCP2)*P82 

* +2.0* (G(8,3) *TSP3-G(2, 8) *TCP3) *P83 

* +3 . 0* (G(8, 4) *TSP4-G(3, 8) *TCP4) *P84 

* +4.0* (G(8, 5) *TSP5-G(4, 8) *TCP5) *PB5 

* +5 . 0* (G(8, 6) *TSP6-G(5, 8) *TCP6) *P86 

* +6 . 0* (G{8, 7) *TSP7-G(6, 8) *TCP7) *P87 

* +7 .0* (G(8, 8) *TSP8-G(7, 8) *TCP8) *P88) 


\/ N = 9 


IF (MGNMAX.lt. 9) GO TO 130 
AOR = AOR*AR 

IF ( (BM (9) *AOR) .LT.ERR) GO TO 130 
TSP9 = (TSP5+TSP5) *TCP5 

(TCP5+TSP5) * (TCP5-TSP5) 

P21*P81 -0.2512 8205* P71 
P21*DP81+DP21*P81-0 .25128205*DP71 
P21*P82-0 .24615384*P72 
P21*DP82+DP21*P82-0 . 24615384 *DP72 
P21*P83-0 .23076923*P73 
P21*DP83+DP21*P83-0 . 23076923*DP73 


TCP9 

P91 

DP91 

P92 

DP92 

P93 

DP93 
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1471 


P94 

1472 


DP94 

1473 


P95 

1474 


DP95 

1475 


P96 

1476 


DP96 

1477 


P97 

1478 


DP97 

1479 


P98 

1480 


DP98 

1481 


P99 

1482 


DP99 

1483 


RC2 

1484 


RC3 

1485 


RC4 

1486 


RC5 

1487 


RC6 

1488 


RC7 

1489 


RC8 

1490 


RC9 

1491 


BR = 

1492 


* 

1493 


BT = 

1494 


* 

1495 


BP = 

1496 


* 

1497 


* 

1498 


-* 

1499 


★ 

1500 


* 

1501 


* 

1502 

c 


1503 

c. . 

4 

1504 

c 

\/ ^ 

1505 

c. . 

H 

1506 

c 


1507 


IF 1 

1508 


AOR 

1509 


IF ( 

1510 


TSP] 


1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 


= P21*P84-0.20512820*P74 
= P21*DP84+DP21*P84-0 . 20512820^DP74 
= P21*PB5-0.16923076*P75 
= P21*DP85+DP21*P85-0 , 16 923076*DP75 
= P21*P86-0.12307692*P76 
= P21*DP86+DP21*P86-0 . 12307692*DP76 
= P21*P87-0 . 06666666*P77 
= P21*DP87+DP21*P87-0 . 06666666*DP77 
= P21*P88 

= P21*DP88+DP21*P88 
s P22*P88 
= 8.0^P98 

= G(9, 2) *TCP2+G(1, 9) *TSP2 
= G(9, 3) *TCP3+G(2, 9) ♦TSP3 
= G(9,4) *TCP4+G(3, 9) *TSP4 
= G{9, 5) ♦TCP5+G(4, 9) *TSP5 
= G(9, 6) *TCP6+G(5, 9) *TSP6 
= G(9,7) *TCP7+G{6, 9) *TSP7 
= G(9, 8) *TCP8+G(7, 9) ♦TSPB 
= G(9, 9) *TCP9+G(8, 9) *TSP9 

BR-9.0*AOR* (G(9, 1) *P91+RC2* P92+RC3*P93+RC4*P94+RC5 *P95 
+RC6*P96+RC7*P97+RC8*P98+RC9*P99) 

BT+AOR* (G (9, 1) *DP91+RC2*DP92+RC3*DP93+RC4*DP94+RC5^DP95 
+RC6*DP96+RC7*DP97+RC8*DP98-^RC9*DP99) 

BP'AOR* { (G(9,2) *TSP2-G(1. 9) *TCP2) *P92+2 . 0* (G(9, 3) *TSP3 
-G (2, 9) *TCP3) *P93+3 . 0* (G(9, 4) *TSP4 
-G (3, 9) *TCP4) ♦P94+4 . 0* (G{9, 5) *TSP5 
-G(4, 9) ♦TCPS) *P95+5 . 0* {G(9,6> *TSP6 
-G (5 , 9) *TCP6) *P96+6 . 0* (G (9, 7) *TSP7 
-G{6, 9) *TCP7) *P97+7 .0* (G(9, 8) *TSP8 

-G(7, 9) *TCP8> *P98 + 8 . 0* (G(9, 9) *TSP9-G(8, 9) *TCP9) *P99) 


= TSP2*TCP9+TCP2*TSP9 
TCPIO = TCP2*TCP9-TSP2*TSP9 
PlOl = P21*P91-0 .25098039*P81 
DPIOI = P21*DP91+DP21*P91 -0,2 509803 9*DP81 
P102 = P21*P92-0.24705882*P82 

DP102 = P21*DP92+DP21*P92-0 . 24705882*DP82 

P103 = P21*P93-0 . 23529411*P83 

DP103 = P21*DP93+DP21*P93 -0 . 23529411^DP83 

P104 = P21^P94-0.21568627*P84 

DP104 = P21*DP94+DP21*P94 -0 . 21568627*DP84 

P105 = P21*P95-0 . 18823529*P85 

DP105 = P21*DP95+DP21*P95-0 . 18823529*DP85 

P106 = P21*P96-0 . 15294117*P86 

DP106 = P21*DP96+DP21*P96-0 .15294117*DP86 

P107 = P21*P97-0 .10980392*P87 

DP107 = P21*DP97+DP21*P97-0 . 10980392*DP87 

P108 = P21*P98-0 .05882352*P88 

DP108 = P21*DP98+DP21*P98-0 . 05882352*DP88 

P109 = P21*P99 

DP109 = P21*DP99+DP21*P99 

PlOlO = P22*P99 
DPIOIO = 9.0*P109 

RC2 = G(10,2)*TCP2+G{1,10)*TSP2 
RC3 = G(10,3)*TCP3+G(2,10)*TSP3 
RC4 = G{10,4)*TCP4+G(3,10)*TSP4 
RC5 = G(10, 5) *TCP5+G(4, 10) *TSP5 
RC6 = G(10,6)*TCP6+G(5,10)*TSP6 
RC7 * G(10,7)*TCP7+G(6,10)*TSP7 
RC8 * G(10,8)*TCP8+G(7,10)*TSP8 
RC9 = G<10,9)*TCP9+G(8,10)*TSP9 
RCIO » G(10,10)*TCP10+G(9,10)*TSP10 
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1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 


BR * bR-10.0*AOR*<G(10,1)*P101+RC2*P102+RC3*P103+RC4*P104 

* +rC5*P105+RC6*P106+RC7*P107+RC8*P108+RC9*P109+RC10*P1010) 

BT = bT+AOR*{G{10,1)*DP101+RC2*DP102+RC3*DP103+RC4*DP104 

* +rC5*DP105+RC6*DP106+RC7*DP107+RC8*DP108+RC9*DP109 

* +RC10*DP1010) 

BP = BP-AORM{G(10,2)*TSP2<G(1,10)*TCP2)*P102+2.0*(G(10,3)*TSP3 

* -G (2. 10) *TCP3) *P103+3 .0* (G ( 10 , 4 ) *TSP4 

* -G (3 , 10) *TCP4) *P104+4 . 0* {G (10, 5) *TSP5 

* -G(4,10) *TCP5) ♦PIOB+B.O* (G(10,6) *TSP6 

* -G(5, 10) *TCP6) *P106+6 .0* (G(10, 7) *TSP7 

* -G(6, 10) ^TCP7) *P107+7 .0* (G(10, 8) *TSP8 

* -G (7, 10) *TCP8) *P108+8 . 0* (G(10, 9) *TSP9 

* -G (8, 10) *TCP9) *P109+9 . 0* (G(10, 10) *TSP10 

* -G(9, 10) *TCP10) *P1010) 


C 

C. . ■ 
C 

C. . 
C 


\/ N = 11 


IF (MGNMAX.LT.il) GO TO 130 
AOR = AOR*AR 

IF ( (BM(ll) *AOR) .LT.ERR) GO TO 130 
TSPll 
TCPll 
Pill 
DPlll 
P112 
DP112 
P113 
DP113 
P114 
DP114 
P115 
DP115 
P116 
DP116 
P117 
DP117 
P118 
DP118 
P119 


1582 

DP119 

1583 

PlllO 

1584 

DPlllO 

1585 

Pllll 

1586 

DPllll 

1587 

RC2 = 

1588 

RC3 = 

1589 

RC4 = 

1590 

RC5 = 

1591 

RC6 = 

1592 

RC7 = 

1593 

RC8 = 

1594 

RC9 = 

1595 

RCIO = 

1596 

RCll = 

1597 

BR = E 

1598 

* 

1599 

★ 

1600 

BT = I 

1601 

* 

1602 

* 

1603 

BP = I 

1604 

* 

1605 

-* 

1606 

* 

1607 

★ 

1608 

* 

1609 

* 

1610 

-* 


_ (TSP6+TSP6) *TCP6 
= (TCP6+TSP6) * (TCP6-TSP6) 

= P21*P101-0 .25077399*P91 
= P21*DP101+DP21*P101-0 . 25077399*DP91 
= P21*P102-0.24767801*P92 
= P21*DP102+DP21*P102-0 . 24767801*DP92 
= P21*P103-0 . 23839009*P93 
= P21*DP103+DP21*P103-0 . 23839009*DP93 
= P21*P104-0 .22291021^P94 

= p21*DP104+DP21*P104-0 .22291021*DP94 

= P21*P105-0 . 20123839*P95 

= P21*DP105+DP21*P105>0.20123839*DP95 
= P21*P106-0.17337461*P96 
= P21*DP106+DP21*P106-0 . 17337461^DP96 
= P21*P107-0.1393188B*P97 
= P21*DP107+DP21*P107-0 . 13931888*DP97 
= P21*P108-0.09907120*P98 
= P21*DP108+DP21*P108-0 . 09907120*DP98 
= P21^P109-0 .05263157*P99 

P21*DP109+DP21*P109-0 . 05263157*DP99 
= P21*P1010 

= P21*^DP1010+DP21*P1010 
= P22*P1010 
= lO.O^PlllO 

G(ll,2) *TCP2+G(1, 11) *TSP2 
G(ll, 3) *TCP3+G(2, 11) *^TSP3 
G(ll, 4) *TCP4+G(3, 11) *TSP4 
G(ll, 5) *TCP5+G(4, 11) *TSP5 
G(ll, 6) ^TCP6+G(5, 11) *TSP6 


G(ll, 9) *TCP9+G(8, 11) ♦TSP9 


+ . 

+ . 


R-11 . 0*AOR* (G U-i-i -Li 

-»-RC5^P115+RC6*P116+RC7*P117+RC8*P118+RC9*P119+RC10*P1110 

-fRC11*P1111) 

T+AOR* (G (11 , 1 ) *DPlll+RC2*DP112+RC3*DP113+RC4*DP114 

-HRC5*DP115+RC6*DP116-hRC7^DP117+RC8*DP118+RC9*DP119 

+RC10*DP1110+RC11*DP1111) 


-G(2, 11) *TCP3) 
-G(3,ll) *TCP4) 
-G(4,ll) *TCP5) 
-G(5,ll) *TCP6) 
-G(6,11)*TCP7) 
-G(7, 11) *TCP8) 
-G(8,ll) *TCP9) 


*P113 + 3-0 *(G(11,4) *TSP4 
*P114 + 4.0 * (G (11 , 5) *TSP5 
*P115 + 5.0 *(G(11.6)*TSP6 
*P116 + 6.0 * (G(ll,7) *TSP7 
*P117 + 7.0 *(G(11,B)*TSP8 
*P118 + 8.0 * (G(ll, 9) *TSP9 
♦P119 + 9.0 * (G(ll, 10) *TSP10 
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1611 


★ -G(9,ll) *TCP10) *P1110+10.0* (G{11, 11) ♦TSPll 


1612 


* -G(10,ll) ♦TCPll) *P1111) 



1613 

1 i: 1 /I 

c 





1615 

c . 
c 

\/ Convert to units of Gauss 




lOlD 

1617 

c . 
c 





1618 


130 BP = BP/P22*l.E-5 




1619 


BT = BT*l.E-5 




1620 


BR = BR*l.E-5 




1621 


B = SQRT(BR*BR+BT*BT+BP*BP) 




1622 


RETURN 




1623 

c 





1624 

c . 





1625 

c 

Y(l) is R coordinate 

Y(2) is 

THETA coordinate 

1626 

c 

Y(3) is PHI coordinate 

Y(4) is 

V(R) 


1627 

c 

Y(5) is V (THETA) 

Y(6) is 

V(PHI) 


1628 

c 

F(l) is R dot 

F(2) is 

THETA dot 


1629 

c 

F(3) is PHI dot 

F(4) is 

R dot dot 


1630 

c 

F(5) is THETA dot dot 

F(6) is 

PHI dot dot 


1631 

c 

BR is B(R) 

BT is 

B (THETA) 


1632 

c 

BP is B(PHI) 

^ + • . . 

B is 

+ . . 

magnitude of 

magnetic fi 

1634 

c . 
c 





1635 


END 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 


PROGRAM TJI95T 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. . . . 
c 

C- . . . 

c 

CLast 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c. . . 

c 

c 

c. . . 
c 


c 

c 

c 

c 

c 

c 

c 




+ + + 


+ + -• 


Multi-platform COSMIC-RAY TRAJECTORY PROGRAM 
fortran 77 transportcODle version 

Read in control card; LAT, LON, RIG, ZENITH, AZIMUTH, DELPC, INDO 
Then calculate INDO trajectories 

Starting at PC 

Incrementing at DELPC intervals 

Includes conversion from Geodetic to Geocentric coordinates 
Includes re-entrant albedo calculations 

Uses subroutine SINGLTJE to do trajectory calculations 

Maqnetic field - IGRF 1995 (order 10) *** 

+ + + + + * — : ' • 

Restrictions: Cannot run over N or S pole; will get BETA blowup 


Mod History 
Mod 21 Dec 00 
Mod 20 Dec 00 
Mod 17 Feb 99 
Mod 17 Feb 99 


Mod 

Mod 

Mod 

Mod 

Mod 

Mod 


Aug 97 
Jan 97 
Jun 96 
Jun 96 
Feb 96 
Dec 94 


■(k***-***-*****--* 

Timing 
Will run on 
Will run on 
Will run on 
Will run on 
★ **********! 

* TAPE* 

* TAPEl 

* TAPE 7 

* TAPES 

* TAPEl 6 
■* 


Make all intrinsic function double precision for PC 
Insert 8 character format 1000 with AZ & ZE 
set limit to 600000 
if {ymax . It . 6 . 6) IFATE = 3 

Adjust step size to minimize beta problems 

High latitude step size adjust, introduce AHLT 

EDIF limit set to l.Oe-5 

lERRPT formats. Boundary and look ahead 

Standard reference TJIV line check 

Print out start and end times of PC run 

★ ★*********^k*******************^**************** 


estimates base on COMPAQ Digital FORTRAN 
PHI PC at 850 MHZ 55000 steps/sec (Real*B) 

PHI PC at 700 MHZ 39000 steps/sec (Real*8) 

PHI PC at 550 MHZ 32000 steps/sec (Real*8) 

PH PC at 400 MHZ 23000 steps/sec (Real*8) 

^i^ic********** **************** ********************** 

Monitor program operation 

Trajectory control cards 

80 character line (card image) output 

132 character line printer output 

Diagnostic output for troiible shooting 

Normally turned off (open statement commented out) 

■ i,^,^,**ir**^.*******^’********************************* 


Px-ogrammer - Don F. Smart; FORTRAN77 

Note - The programming adheres to the conventional FORTRAN 
default standard that variables beginning with 
'i','j','k','l', 'm' , or 'n' are integer variables 
Variables beginning with "c" are character variables 
All other variables are real 

+ + + 

DO not mix different type variables in same common block 

Some computers do not allow this 

+ + + + + ■* 

IMPLICIT INTEGER (I-N) 

IMPLICIT REAL * 8 (A-B) 

IMPLICIT REAL * 8 (D-H) 

IMPLICIT REAL * 8{0-Z) 

. . . + + + + ^ 

\/ The following used for timing PC runs 

Can use on PC (IBM and COMPACQ FORTRAN) and on SUN's 
Cannot use on IBM SP2 or DEC VAX 
+ + ^ + ■ 

INTEGER*2 ISYEAR, ISMONTH, ISDAY, ISHOUR, ISMIN, ISSEC, ISHSEC 
INTEGER* 2 IE YEAR, lEMONTH, lEDAY, lEHOUR, lEMIN, lESEC, lEHSEC 


C 

C. 

C 


COMMON /WRKVLU/ F (6) , Y (6) , ERAD, EOMC, VEL, BR, BT, BP, B 
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71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 


c 

c. 

c 

c 

c. 

c 

c 

c. 

c 

c 

c 

c. 

c 


c 

c 

c 

c 

c 


COMMON /WRKTSC/ 
COMMON /TRIG/ 
COMMON /GEOID/ 
COMMON /SNGLR/ 

COMMON /SNGLI/ 


TSY2 , TCY2 , TSY3 , TCY3 
PI, RAD, PI02 
ERADPL, ERECSQ 

SALT , D I sour , GCLATD , GDLATD , GLOND , GDAZD , GDZED , 
RYl , RY2 . RY3 , RHT , TSTEP 
LIMIT , NTRAJC , I ERRPT 


+ 


+ . . 


CHARACTER*! CFF 


+ + ^ 

\/ Use CFF / ’!'/ on 'Main Fames"; 

use CFF /Z’OC'/ for files to be printed on word processors 


DATA CFF / •!'/ 
DATA CFF /Z'OC'/ 


OPEN ( 1 , FILE= ' TAPE! ' , STATUS^ ' OLD ' ) 

OPEN {7, FILE= 'TAPE7 ' , STATUS^ ' UNKNOWN ’ ) 

OPEN (8, FILE= ' TAPES ' , STATUS =' UNKNOWN ' ) 
open (16,FILE='TAPE16 ' , STATUS =' UNKNOWN ' ) 

. . . .+ 

\/ Get date and time of run start (works on PC s) 

+ + 


CALL GETDAT ( ISYEAR, ISMONTH, ISDAY) 

CALL GETTIM { ISHOUR, ISMIN , ISSEC, ISHSEC) 


WRITE (8, 1000) CFF, ISYEAR, ISMONTH, 
WRITE (16,1000) CFF, ISYEAR, ISMONTH, 
1000 FORMAT (A1 , ' RUN STTU^T DATE 14, 

* ' : ' , 12 ) 


ISDAY, ISHOUR, ISMIN, ISSEC 
ISDAY, ISHOUR, ISMIN, ISSEC 
■/M2, '/' ,12, '@',12, ’ : • .12, 


C 

C. 

C 

c. 


\/ User defined program control 

4 . + 



+ . . 


C 

C. 

C 

c 

c. 

c 

c. 

c 

c 

c 

c 

c 

c. 

c 


c 


c 

c. 

c 

c 

c 


FSTEP = 4.0E08 
LIMIT = 600000 


. . - 

/\ FSTEP is total 
LIMIT is 

. . . . . . 

\/ Define program 


T , 

number of steps before run is terminated 
max number of steps before trajectory declared 

^ 

constants 

. • 


F 


DISOUT is 
ERAD is 
NTRAJC is 
RHT is 
TSTEP is 


radial distance for trajectory termination 
average earth radius 

number of trajectory computed in this run 
top of atmosphere for re-entrant trajectory 
number of steps executed in this run 


NTRAJC = 0 
TSTEP = 0.0 

DISOUT = 25.0 

ERAD = 6371.2 

RHT =20.0 

VEL = 2 . 99792458E5/ERAD 


»»VEL" 
Light 
Ref ; 


is light velocity in earth radii per second 

speed defined as 2997924S8 m/s 

E. R. Cohne AND B. N. Taylor, "The Fundamental 


Physical 
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141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 


c 

c. . . 
c 

c. . 
c 


c 

c. . 

c 

c 

c 

c 

c 

c. . 
c 


Constants, Physics Today Pll, August 1987. 

> :•- ^ 

\/ Define essential trigonometric values 

+ + • 

PI = ACOS (-1 .0) 

RAD = 180.0/PI 
PI02 = PI/2.0 


+ + + 

\/ TAPEl must contain trajectory control cards 
Terminate program if no data on TAPEl file 
Terminate if EOF encountered 

Terminate if negative data found on input file 
Terminate if bad data found on input file 

4 . + + 


100 READ (1,1010,IOSTAT=IOSTAT,ERR=120,END=110) GDLATD . GLOND , PC , 

» GDZED,GDAZD,DELPC, INDO, lERRPT, INDEX 

1010 FORMAT {BZ, 6F8 . 2 , 318) 

110 CONTINUE 

IF (IOSTAT.lt. 0) THEN 
WRITE (*,1020) 

GO TO 150 

ENDIF , . 

1020 FORMAT ( ' END OF FILE ON TAPE 1 (DATA INPUT) ) 

120 IF (lOSTAT.GT.O) THEN 

WRITE (*,1030) lOSTAT, GDLATD, GLOND, PC, DELPC, 

* INDO, lERRPT , INDEX 
GO TO 150 

1030 FORMAT (’ ERROR ON DATA INPUT FILE (TAPEl), lOSTAT ==',15/ 

* 4F8.3,3I8) 

C 

IF (PC.LE.O) THEN 
WRITE (*,1040) 

GO TO 150 
END IF 

1040 FORMAT (’ END OF DATA INPUT (NEGATIVE VALUE READ IN) ' ) 

^ WRITE (* , 1050) GDLATD, GLOND, PC, GDZED, GDAZD , DELPC , INDO , lERRPT, INDEX 

1050 FORMAT {* TAPE 1 ',6F7.2,3I6) 

^ ^ + 

^ \/^Start’ at top of atmosphere {20 km above surface of oblate earth) 

Coding is relic of past when I SALT was read in 

+ ^ 


C 

C 

c. . . 
c 


c 

c. . . . 

c 

c 

c 

c 

c 

c 

c. . . 
c 

c 

c. . . 


I SALT = 0 

IF (ISALT.LE.O) SALT = 20.0 
IF (ISALT.GT.O) SALT = ISALT 

KNT = 0 

IDELPC = DELPC*1000. 0+0. 0001 
INDXPC = PC*1000. 0+0. 0001 

- - - 

For trajectories from Earth 

convert from Geodetic coordinates to Geocentric coordina 
Geodetic coordinates used for input 
Geocentric coordinates used for output 
All calculation are done in Geocentric coordinates! 

\/ Conversion from Geodetic to Geocentric coordinates 

CALL GDGC {TCD, TSD) 
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211 

212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c. 

c 

c 

c 

c 

c. 

c 


c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 


\/ Remember positron of initial point on trajectory 
in Geocentric coordinates 
Y(l) is distance in earth radii from geocenter 

Start with height aibove geoid and convert to earth radii 
The initial values of Y(l) , Y{2) , and Y(3) are 
calculated in subroutine GDGC 
Coordinate reference system 
R = vertical 


Y{1) = 

Y ( 2 ) = THETA 
Y(3) = PHI 


= south 
= east 


RY2 = Y{2) 

RY3 = Y(3) 

RYl = Y(l) 

GDAZ = GDAZD/RAD 
GDZE = GDZED/RAD 
TSGDZE = SIN (GDZE) 
TCGDZE = COS (GDZE) 
TSGDAZ = SIN (GDAZ) 
TCGDAZ = COS (GDAZ) 


\/ Get Yl, Y2, Y3 components in Geodetic coordinates 
Azimuth is measured clockwise from the north 
in R, THETA, PHI coordinates, in the THETA- PHI plane 
The angle is 180 - AZD 

+ + + + + + 

YIGD == TCGDZE 

Y2GD = -TSGDZE* TCGDAZ 

Y3GD = TSGDZE*TSGDAZ 

+ + + + + + 

\/ The small angle delta at the point in space between the 
downward Geodetic direction and the 
downward Geocentric direction is given by 

DELTA = Geocentric co- latitude + Geodetic latitude - 90 (deg) 
We are looking up 

The rotation from Geodetic vertical to Geocentric Vertical 
Is always rotation toward the equator 

\/ Convert from Geodetic to Geocentric Components for Yl, Y2, 


YIGC = Y1GD*TCD+Y2GD*TSD 
Y2GC = -Y1GD*TSD+Y2GD*TCD 
Y3GC = Y3GD 


C 

C 

C 

C1060 

C 

C. . . . 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

C- 
C 


WRITE (*,1060) GDZED , GDZE , GDAZD, GDAZ , TSGDZE , TCGDZE , TSGDAZ, TCGDAZ 
WRITE (*!i060) YIGD, Y2GD,Y3GD, YIGC, Y2GC,Y3GC 
FORMAT (’ 1050 ’ , 8F15 . 5) 


^k******************^k ************** ***************** 

Main control of trajectory calculations begins here 
Trajectories are calculated in subroutine SINGLTJ 

****** ********ik******^k************** *************** 


PC = rigidity IN GV 

INDXPC = index of rigidity in MV (integer) 
IRSLT = trajectory result 

IRSLT +1 allowed 

IRSLT 0 failed 

IRSLT -1 re-entrant 


DO 130 NDO := 1, INDO 
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281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 


c 

IF (lERRPT.GE.l) WRITE (16,1070) GDLATD , GLOND, KNT, INDO, NDO, 

* IDELPC , INDXPC , DELPC , PC 

C 

CALL SINGLTJ {PC, IRSLT, INDXPC, YIGC, Y2GC, Y3GC) 

C 

KNT = KNT+1 

INDXPC = INDXPC- IDELPC 
PC = FLOAT (INDXPC) /lOOO.O 
C 

C + + + + ^ 

C \/ Check termination conditions 

C + + ^ 

C 

IF (PC .LE. 0.0) GO TO 140 

IF (TSTEP .GE. FSTEP) GO TO 150 
C 

130 CONTINUE 
140 CONTINUE 

1070 FORMAT (' 1070 ' , 2F7 , 2 , 516 , 2F6 . 2) 

C 

c + + + 

Q iii,*iiii**-k**1t**ii********** 

C End of main control loop 

Q irit*****ifk*ifti************ 

C /\ Go read in next control card 

C + + + + + 

C 

GO TO 100 
C 

c + + 

Q i,^^i,iri,-mtiHi*-k**ir*************** 

C End of trajectory calculations 

P *************^>**************** 

c - > ^ ^ ^ 

C 

150 CONTINUE 
C 

c + + ; *■*■ ^ 

C \/ Get date and time of run end (PC routine) 

C + + 

c 

CALL GETDAT (I E YEAR , I EMONTH , I EDAY ) 

CALL GETTIM ( lEHOUR, lEMIN, lESEC, lEHSEC) 

WRITE (8, 1100) lEYEAR, lEMONTH. lEDAY, lEHOUR, lEMIN, lESEC 

WRITE (16,1100) I EYEAR, lEMONTH, lEDAY , lEHOUR, lEMIN , I ESEC 
1100 FORMAT (//’ RUN END DATE 14, '/M2, ' / ' » 12 , > ® ',12 , ' : M2 , 

* ' : ' , 12) 

WRITE (8, 1110) ISYEAR, ISMONTH, ISDAY, ISHOUR, ISMIN, ISSEC 
1110 FORMAT (■ RUN START DATE 14, '/',I2, ' / ’ , 12 , ' ® ' , 12 , ' : ’ , 12 , 

* ' : M2) 

C 

WRITE (*. 1120) TSTEP, NTRAJC 

WRITE (8, 1120) TSTEP, NTRAJC 
WRITE (16,1120) TSTEP, NTRAJC 
1120 FORMAT (//' TOTAL NUMBER OF STEPS ',F15.0/// 

* ' TOTAL NUMBER OF TRAJECTORIES ', 115///) 

Write (*,1130) 

1130 format (' End program TJI95T') 

C 

STOP 


C 

C + 

C Y(l) is R coordinate 

C Y(3) is PHI coordinate 

C Y{5) is V (THETA) 

C F(l) is R dot 

C F{3) is PHI dot 

C F(5) is THETA dot dot 


.... + + + 

Y(2) is THETA coordinate 
Y(4) is V(R) 

Y{6) is V(PHI) 

F{2) is THETA dot 
F(4) is R dot dot 
F(6) is PHI dot dot 
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351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 


c 

c 

c. . . . 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BR is B(R) 

BP is B(PHI) 

+ 


ierrpt vlu 


BT is B (THETA) 

B is magnitude of magnetic field 


ierrpt 

ierrpt 

ierrpt 

IERRPT 

ierrpt 

ierrpt 

ierrpt 


1 

1 

2 

4 

3 

3 

3 


IERRPT = 4 
ierrpt = 4 


END 


Program 

Format 

"MAIN" 

1070 

SINGLTJ 

2000 

SINGLTJ 

2070 

SINGLTJ 

2090 

SINGLTJ 

2100 

SINGLTJ 

2110 

SINGLTJ 

2120 

SINGLTJ 

2130 

SINGLTJ 

2140 

GDGC (TCD, TSD) 


Variables printed out 
Input to SINGLTJ 
Input to SINGLTJ 

PC , BETA. KBF . RCKBETA, NSTEP . TBETA , Y . H 
y,f,accer,h,nstep 
H,HCK.Y(1) ,DELACC, pc, NSTEP 
w HPK Y(l) *RFA, PC, NSTEP 
h'hck!y(i) ,NAMX,F(ICK) ,ICK,F0LD(ICK) , 
ICK, PC, STEP 

Y(ll dISCK, PVEL.H, HSNEK, HOLD, NSTEP 

Y(l) 'dISCK,PVEL,H, hold, NSTEP 


C 

C. . . 

C 
C 
C 
C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

CLast 

C 

C 

C. . . . 
C 

c 

c 

c 

c 

c 

c. . . . 

c 

c 

c. . . . 
c 


\/ Convert 
Adopted 
GDLATD 
GCLATD 
GDCLT 
ERPLSQ 
EREQSQ 
ERADPR 
ERADER 
ERAD 
ERADFL 
ERADFL 
ERECSQ 
ERECSQ 
. . . . 


. - - 

from Geodetic to Geocentric coordinates 

from NASA ALLMAG 

= Geodetic latitude (in degrees 
= Geocentric latitude (in degrees 

= Geodetic souared = 40408585 (km sq) 

is earth average radius - 6371. 
is flattening factor = 1.0/298.25 
_ (erADEQ - factor) /ERADEQ 
is eccentricity squared = 0.00673966 

= EREQSQ/ ERPLSQ -1.0 ^ ^ 


Mod 15 Jan 97 
Mod Feb 96 


Common block SNGLR & SNGLI 
Standard reference TJIV line check 


Programmer - Don F. conventional FORTRAN 

- The programming adheres to the convenriui 

defau^^standard that variables beginning with 

“v 'k-.'l'.’m'.or -n- are integer variables 

Varia^-l^s beginning with "c” are character variables 
All other variables are real ^ ^ 

••••"•■ Do'notmixdifferenttype^ariables'in same common block 

Some computers do not allow this ^ ^ 



IMPLICIT INTEGER (I-N) 

IMPLICIT REAL * 8 (A-B) 

IMPLICIT REAL * 8 (D-H) 

IMPLICIT REAL * 8(0-Z) 


C 

C 

C 


COMMON /WRKVLU/ F (6 ) , Y (6 ) , ERAD, EOMC, VEL, BR, BT, BP, B 
CO^ON /WRKTSC/ TSY2 , TCY2 , TSY3 , TCY3 
COMMON /TRIG/ PI,RAD,PI02 

RY1,RY2,RY3,RHT,TSTEP 


C 

C. 

C 


ERPLSQ = 40408585.0 
EREQSQ = 40680925.0 
ERADPL = SQRT (ERPLSQ) 
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421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 


ERECSQ = EREQSQ/ERPLSQ - 1-0 

GDCLT = PI02-GDLATD/RAD 
TSGDCLT = SIN (GDCLT) 

TCGDCLT = COS (GDCLT) 

ONE = EREQSQ*TSGDCLT*TSGDCLT 
TWO = ERPLSQ*TCGDCLT*TCGDCLT 
THREE = ONE+TWO 
RHO = SQRT (THREE) 

C ^ ^ + '• 

C \/ Get geocentric distance from geocenter in kilometers ^ 

c 

DISTKM = SQRT (SALT* (SALT+2 . 0*RHO) + (EREQSQ*ONE+ERPLSQ*TWO) /THREE) 

^ ^ 

C TCD^andTSo' are sine and cosine of the angle the Geodetic vertical 

c must be rotated to form the Geocentric vertical 

C 

c 

TCD = (SALT+RHO) /DISTKM 

TSD = (EREQSQ-ERPLSQ) /RHO*TCGDCLT*TSGDCLT/DISTKM 
TCY2 = TCGDCLT*TCD-TSGDCLT*TSD 
TSY2 = TSGDCLT*TCD+TCGDCLT*TSD 

C 

Y(2) = ACOS(TCY2) 

Y(3) = GLOND/RAD 
Y(l) = DISTKM/ERAD 
C 

GCLATD = (PI02-Y(2) ) *RAD 

c WRITE (*,1200) GDLATD, GDCLT, TSGDCLT, TCGDCLT, ONE, TWO.THREE, RHO 

C1200 FORMAT {* 1200 ’ , 8F15 . 5) 

C WRITE (*,1200) DISTKM, TCD, TSD, TCY2,TSY2, GCLATD 

C 

return 

S^ROUTINE SINGLTJ (PC, IRSLT, INDXPC, YIGC, Y2GC, Y3GC) 

^ ^ ^ 

c Cosmic-ray trajectory calculations sv^routine 

r calculates cosmic ray trajectory at rigidity 

^ . + 

c 

Q PC s= rigidity in GV 

C IRSLT = trajectory result 

r INDXPC = index of rigidity in mv (integer) 

Q YIGC, Y2GC, Y3GC are initial geocentric coorinat ^ 

C v/’step’size'optimization'& look ahead for potential BETA problems 

C monitor accelerating terms and reduce step length 

P if large increase occurs 

c Restart at smaller step size if BETA error ^ 

C Restrictions /cannot run' over N or S pole; will get BETA blowup^ 

c ... + *••- 

CLast Mod 17 Feb 99 if (ymax . It . 6 . 6 ) IFA^E = 3 

c Mod 18 Jan 97 Patch high latitude beta problem 

C Mod Jan 97 High latitude step size adjust, introduce AH 

c Mod Jun 96 EDIF limit set to l.Oe-5 

r Mod Jun 96 lERRPT formats. Boundary and look ahea 

c M^ FEB 9€ Standard reference TJIV (line check 17 Feb) 

C - '" 

C Programmer - Don F . Smart; FORTRAN77 , FORTRAN 

C Note - The programming adheres to the conventional FORTRAN 

r default standard that variables beginning with 

^ *i«,'m*,or 'n' are integer variables 

C variables beginning with "c" are character variables 

C All other variables are real 
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491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 


c. 

c 

c 

c. 

c 


c 

c. 

c 


+ + * 

DO not mix different type vanities in same common block 

Some computers do not allow this 


+ . . . . 


IMPLICIT INTEGER (I-N) 
IMPLICIT REAL * 8 (A-B) 
IMPLICIT REAL * 8 (D-H) 
IMPLICIT REAL * 8 (0-Z) 


COMMON /WRKVLU/ F ( 6 ) , Y (6) , ERAD, EOMC, VEL, BR, BT, BP, B 
COMMON /WRKTSC/ TSY2 , TCY2 , TSY3 , TCY3 
COMMON /TRIG/ PI , RAD , PI02 

ERADPL, ERECSQ 

SALT, D I sour , GCLATD , GDLATD , GLOND , GDAZD, GDZED , 
RYl , RY2 , RY3 , RHT , TSTEP 
LIMIT , NTRAJC , lERRPT 


COMMON /GEOID/ 
COMMON /SNGLR/ 


COMMON /SNGLI/ 


C 

C. . . 
C 

C 

C. . 
C 


C 

C. 

C 


DIMENSION P(6) ,Q(6) ,R(6) ,S(6) , YB (6) , FOLD (6) ,YOLD(6) 

+ 


. + 


CHARACTER*! CF,CR 
CHARACTER* 6 CNAME 

DATA CF,CR / ’F' , 'R*/ 
DATA CNAME / ' 195 '/ 


, . + 


+ . . . . 


IF (lERRPT.GT.O) WRITE (16,2000) PC, INDXPC,RY1.RY2,RY3 


526 

2000 FORMAT (' SINGLTJ ’ , F8 . 3 , 18 , 3F8 - 4 ) 



527 

C 



528 

BETAST =2.0 



529 

LSTEP = 0 



530 

KBF = 0 



531 

C 



532 




533 

C \/ Runge-Kutta constants 



534 




535 

C 



536 

RC106 = 1. 0/6.0 



537 

SR2 = SORT (2.0) 



538 

TMS202 = (2.0'SR2)/2.0 



539 

TPS202 = (2.0+SR2)/2.0 



540 

c 


+ . 

541 

542 

C \/ Initialize Runge-Kutta variables 

to zero 

+ . 

543 




544 

c 



545 

100 DO 110 1=1,6 



546 

YB ( I ) = 0.0 



547 

S(I) = 0.0 



548 

R(I) = 0.0 



549 

Q(I) = 0.0 



550 

P(I) = 0.0 



551 

F (I) = 0.0 



552 

110 CONTINUE 



553 

C 



554 

NMAX = 0 



555 

NMIN = 0 



556 

NSTEP = 0 



557 

NSTEPT = 0 



558 

C 



559 

TAU = 0.0 



560 

TUlOO =0.0 




### 


+ . . 
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561 


YMAX = RYl 



562 

C 




564 

C 

\/ Define initial point at start of trajectory 



^ 0 j 

566 

c . . . 
c 




567 


Y(l) = RYl 



568 


Y(2) = RY2 



569 


Y(3) = RY3 



570 


GRNDKM = (ERADPL/SQRT(1.0-ERECSQ*TSY2SQ) ) 



571 


YIO = (RHT+GRNDKM) /ERAD 



572 


R120KM = (ERAD+120 . 0) /ERAD 



573 

c 




J /H 

575 

c 

Rigidity = momentum/ charge 



576 

c 

use oxygen 16 as reference isotope 



577 

c 

Constants used from Handbook of Physics (7-170} 



578 

c 

1 amu = 0.931141 GeV 



j ly 

580 

c . . . 
c 




581 


ANUC =16.0 



582 


ZCHARGE = 8.0 



583 

c 




584 


EMCSQ = 0.931141 



585 


TENG = SQRT( (PC*ZCHARGE) **2+ (ANUC*EMCSQ) **2) 



586 


EOMC = -8987.566297*ZCHARGE/TENG 



587 


GMA = SQRT ( ( (PC*ZCHARGE) / (EMCSQ*ANUC) ) ^*2+1.0) 



588 


BETA = SQRTd .0-1 . 0/ (GMA*GMA) ) 



589 


PVEL = VEL*BETA 



590 


HMAX = 1.0/PVEL 



591 


disck = disout - 1 . l*hmax*pvel 



592 

c 



+ . 

jyj 

594 

c . . 
c 

\/ Set max step length ("HMAX") to 1 earth radii 

second 


595 

c 

PVEL is particle velocity in earth radii per 


596 

c 

DISCK is check for approaching termination boundary 


597 

c 

(within 1.1 steps) 


+ . 

oyo 

599 

c . . 
c 




600 


EDIF = BETA*1.0E-4 



601 


if (edif.lt .1.0-5) edif = l.Oe-5 



602 


if (beta.lt .0.1) edif = l.Oe-4 



603 

c 




604 


Y(4) = BETA^YIGC 



605 


Y(5) = BETA*Y2GC 



606 


Y(6) = BETA*Y3GC 



607 

c 




608 


azd = gdazd 



609 


zed = gdzed 



610 


lAZ = AZD+O.Ol 



611 


IZE = ZED+O.Ol 



612 

613 

c 

r . . 



. 


614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c, 

c 


\/ Set HSTART to about 1 % of the time to complete one gyro-radius 

in a 1 Gauss field 

H = [(2.0*PI*33.333^PC)/(BETA*C)1/0.01 

if restart after BETA error, set HCK to small value 
Introduce AHLT to control step size at high lat (beta problem) 
HCK - reduce step size when large acceleration 
HOLD - last step size used 

HCNG - only allow 20% max growth in step size 
HSNEK - attempt to approach boundary quickly 
Problem at z=90 at high lat 

add zen angle in deg to reduce first step 
+ + + + + + + • • 

PTCY2 = ABS(TCY2) 

AHLT = (1.0 + PTCY2)**2 

HSTART = 6 .0E-6*PC/ (BETA^AHLT + ZED*PTCY2) 

IF (HSTART. LT. 1 . OE- 6) HSTART = l.OE-6 
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631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 


c 

c 

C2010 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. . . . 
c 

130 


HOLD = HSTART 
HCK = HSTART 
HCNG = HSTART 

WRITE {16, 2010) 

format ( ' 2010 ' 


HMAX,HOLD,HCK,HCNG,Y(4) ,Y(5) ,Y(6) ,PVEL, NSTEP 
,18X, 4F9.6, 3F9.4, F9 . 4 , 9X, 15X, 16) 




Start Runge-Kutta 

\/\/\/\/\/\/\/\/ 

\/\/\/\/\/\/ 

\/\/\/\/ 

\/\/ 

+ ■"•••• 

Change in step size criteria, Aug 97 . . -U 4 . 

remove cos VxB step size, causes problems in tight loops 
step size is now only a function of B and BETA 

- - "• 

IF (HCK.LT. 1 . OE-6) HCK = l.OE-6 
CALL FGRAD 

HB = 1.6E-5*PC/ (B*BETA) 

H = HB/BETAST 

IF (KBF.GT.O) H=H/ (FLOAT (KBF*2) ) 

IF (H.GT.HMAX) H = HMAX 

IF (H.GT.HCNG) H = HCNG 

IF (H.GT.HCK) H = HCK 

DO 140 I = 1, 6 

S(I) = H*F{I) 
p(I) = 0.5*S(I) -Q(I) 

YB(I) = Y(I) 

Y(I) = Y(I)+P(I) 

R(I) = Y(I)-YB(I) 

Q(I) = Q(I) +3 .0*R(I) -0.5*S(I) 

140 CONTINUE 

CALL FGRAD 

DO 150 I = 1. 6 

S(I) = H*F(I) 

P{I) = TMS202* (S{I) -Q(I) ) 

YB{I) = Yd) 

Y(I) = Y(I)+P(I) 

R(I) = Y(I) -YB(I) 

Qd) = Q(I)+3.0*Rd) *TMS202*Sd) 

150 CONTINUE 

CALL FGRAD 

DO 160 I - 1, 6 
S(I) = H*F(I) 

P(I) = TPS202* (Sd) -Qd) ) 

YB(I) = Yd) 

Yd) = Yd)+P(I) 

R(I) = Yd)-YB(I) 

Qd) = Qd). 3. 0*R(I)-TPS2O2*S(I) 

160 CONTINUE 


CALL FGRAD 

DO 170 I = 1, 6 
Sd) = H.Fd) 

P(I) = RC106* (Sd) -2.0.Q(D) 
YBd) = Yd) 

Yd) = Yd).P(I) 

R(I) Yd>-YB(I) 

Qd) = Q(I)+3.0.Rd)-0.5.Sd) 
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701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 


170 CONTINUE 


C 

C. . 

C 

C 

C 

C 

C 

c 

c 

C. . 
C 


. . + 

/\ 

/\/\ 

/\/\/\/\ 
A/\/\/\/\/\ 
/\/\/\/\/\/\/\/\ 
One Runge-Kutta 
step completed 
. . . . . 


NSTEP = NSTEP+1 
NSTEPT = NSTEPT 
TAU = TAU+H 
HOLD = H 
HCNG = H*1.2 
HCK = HCNG 
C 
C. 

C 
C. 

c 
c 

c * 

C2030 FORMAT 
C2040 FORMAT 
C 


+ 1 


\/ Emergency diagnostic printout 


WRITE 

WRITE 


{ 16 r 

(16, 

(' 

(' 


2030) 

2040) 

2030 ' 
2040 ' 


+ . . 
if 

+ 

H, Y(l) ,Y(2) ,Y(3) , 


desired 

. . . 

PVEL,B, NSTEP 

HOLD, HCK, HCNG, Y{4) ,Y(5) ,Y(6) , 
PVEL, B, NSTEP 
9X, F9.6, 36X, 

6F9 .6, 


3F9.5, F9.4,F9.5, 18X, 

3F9 . 5 , F9 . 4 , F9 . 5 , 18X, 


16) 

16) 


C. , 

C 

C 

C 

C 

C 

C 

C 


. 

\/ Check for altitude less than 100 km 

if less than 120 km, compute exact altitude above 
and sum time trajectory is below 100 
set re-entrant altitude at RHT km above earth 

computed from international reference ellip 

- " 

IF (Y{1) .LT.R120KM) THEN 

TSY2SQ = SIN(Y(2))*^2 i 

GRNDKM = (ERADPL/SQRT(1.0-ERECSQ*TSY2SQ)) 

RIOOKM = ( 100 . 0+GRNDKM) /ERAD 

R120KM = (120 . 0+GRNDKM) /ERAD 

IF (Y(l) .LT. RIOOKM) TUlOO = TUIOO+H 
PSALT = Y(l) *ERAD- GRNDKM 
YIO = (RHT+GRNDKM) /ERAD 


earth 


IF 


(NSTEP. GT. 5) THEN 

IF (Y(l) .LT. YIO. OR. PSALT. LE. 0.0) THEN 

IF (IERRPT.GT.2) WRITE (16, 2045) PSALT, Yd), YIO 

IRT = -1 
GO TO 260 
ENDIF 
ENDIF 

ENDIF ^ 

2045 FORMAT (* 2045 PSALT , Y ( 1) , YIO FIO . , 


, 1PE14 . 6, E14 .6) 


C. 


C 


\/ Begin error checks . 

(1) Check for unacceptable changes in BETA 
^ + ' • 




RCKBETA = SQRT(Y(4)*Y(4)+Y(5)^Y(5)+Y(6)*Y(6)) 

TBETA = BETA -RCKBETA 
IF (ABS (TBETA) .GT.EDIF) THEN 
KBF = KBF+1 

BETAST = BETAST + AHLT 
EDIF = 2.0*EDIF 

IF (RCKBETA. GT. (l.O+EDIF) ) THEN 

BETAST = BETAST+FLOAT (KBF) * (1 . 0+AHLT) 
WRITE (*,2050) KBF , BETA, RCKBETA 
WRITE (*,2060) Y,H, PC, NSTEP 
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771 

772 

773 

774 

775 

776 
111 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 


WRITE 

WRITE 

ENDIF 


(16,2050) KBF,BETA,RCKBETA 
(16,2060) Y,H,PC,NSTEP 


WRITE (16,2070) PC , BETA , KBF , RCKBETA , NSTEP , TBETA , Y , H 

WRITE ( *,2070) PC, BETA, KBF, RCKBETA, NSTEP, TBETA, Y,H 


+ + + ^ ^ 

\/ Check for irrecoverable beta error 

if KBF > 4 , set fate to failed and start next rigidity 
^ + + + 


IF (KBF. It. 5) THEN 
GO TO 100 
ELSE 

IRT = 0 

PATH = -PVEL*TAU 
ISALT = SALT+0.0001 
WRITE (*,2080) 

GO TO 280 
ENDIF 
ENDIF 

2050 FORMAT (' 2050 ' , ’ KBF= ’ , i5 , 5x, • error, the velocity of the 

* 'particle (BETA) has exceeded the velocity of light'/ 

* • BETA at start of trajectory was ',F10.7/ 

* • BETA now equals ',F10.7/ 

* * reduce step size and try again ' ) 

(' 2060 ' , 'Y,H,PC,NSTEP=‘ ,8F12.6,I10) 

(' 2070 ', 'ERROR, Particle BETA changed;', 

' PC = ' , FIO .6, ’ GV / 

Beta at start was ' , FIO . 7 , 17X, ' KBF= ' , 16/ 

Beta new equals • , FIO . 7 , lOX, ' step number ',16/ 

Beta difference *,F10.7/ 

step length reduced and trajectory recalculated 
Y=» ,6F12.6,6X, ' H=',F15.7) 


2060 

2070 


FORMAT 

FORMAT 


2080 


6x, 

6x, 

6x, 

6x, 

6X, X- v,-«, — - , 

FORMAT (' 2080 Irrecoverable BETA error problem /6x, 

' Set fate to Failed & make path length negative ' /6x, 
' Terminate this trajectory & continue with program') 


'/, 


C 

C 

c 

c 

c 

c 


. . . + + + ''■• •• 

\/ Continue status checks 

(2) Compute composite acceleration 


2090 


C 

C 

C 

C 

C 

C 

C 

C 

C 


ACCER = SQRT (F (4) *F (4) +F (5) *F (5) +F (6) *F (6) ) 

IF ( lERRPT .GT . 3) WRITE (16,2090) Y, F, ACCER, H, NSTEP 

FORMAT (’ Y,F,A,H ' , f 7 . 4 , 5 f 7 . 3 , lx, lpe8 . 1 , 5e8 . 1 , lx, e8 . 1 , e9.2,I6) 

. . . + + + • • ; • 

\/ Continue status checks, make adjustment latitude dependant 

(3) Monitor change in composite acceleration 

If composite acceleration (new-old) change > 5 
If composite acceleration (new/old) ratio > 2 
change step size to a smaller value 
....^ + - + ^ 

IF (NSTEP. GE. 2) THEN 

IF ( ACCER. GT .ACCOLD) THEN 
DELACC = ACCER-ACCOLD 
I F (DELACC . GT . 5 . 0 ) THEN 
HCK = HCK/ (1.0+AHLT) 

IF (IERRPT.GT.2) WRITE (16,2100) 

* H,HCK.y (1) , DELACC, PC, NSTEP 

RFA = ACCER/ACCOLD 
IF (RFA. GT. 2.0) THEN 
HCK = HCK/ (1.0+AHLT) 

IF (IERRPT.GT.2) WRITE (16,2110) 

* H,HCK,Y(1) , RFA, PC, NSTEP 



Final Report Grant NAG5-8009, Section V, Part 2, PROGRAM TJI95T.FOR listing with line numbers 


156 


841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 


2100 

* 

2110 


ENDIF 

ENDIF 

ENDIF 

FORMAT ( ’ 2100 ' , 'H-REDUCE' , 2x, 'H=' , F8 .6, 2x, ' HCK= ’ , F8 .6, 2x, 

' Y (1) = ’ , f 7 . 4 , 2X, ' DELACC= ' ,F6 .2, 4X, ' PC= ’ , F8 . 3 , 4x, ' NSTEP= ' , 18 
FORMAT (' 2110 ' , 'H-REDUCE’ , 2x, ' , F8 . 6 , 2x, ' HCK= ' ,F8.6,2x, 

' Y(l) = ’ , f 7 .4 r 4X, ' RFA^' ,F6.2,4X, ' PC= ' ,F8.3,4x, 'NSTEP=' ,18) 


C 

C 

C 

C 

C 

C 

C 

C 


. . . + + + + + • • : 

\/ Continue status checks, make adjustment latitude dependant 
(4) Monitor change in acceleration components 

If change in any acceleration component is more than 
a factor of 3, reduce step length 
. . . + + + + + 

DO 200 ICK = 4, 6 

AFOLD = ABS (FOLD (ICK) ) 

IF (AFOLD.GT.3 .0) THEN 

RFCK = ABS (F( ICK) /AFOLD) 

IF (RFCK.GT.3 .0) THEN 
HCK = HCK/ (1.0+AHLT) 

IF (IERRPT.GT.2) THEN 

WRITE (16,2120) H, HCK, Y (1) ,NMAX, ICK, F (ICK) , 

^ ICK, FOLD (ICK) , PC,NSTEP 

ENDIF 
ENDIF 
ENDIF 

200 CONTINUE 
ENDIF 

2120 FORMAT (' 2120 > , ' H-reduce ' , 2X, ' H= ' , F8 . 6 , 2X, ' HCK= ' , F8 . 6 , 2X, 

* 'Y(1) = ',F7.4,2X, 'NAMX=M4,2X,’F(M1, ')-’,F6.2.2X, 

★ ' FOLD ( ' , II , ' ) = ' , F6 . 2 , 2X, ' PC= ' , F6 . 3 , 2X, ' NSTEP= ' , 16 ) 

C 

ACCOLD = ACCER 


878 

879 

880 
881 

c. . . 
c 
c 
c 

/\ 

\/ 

Error checks complete 

Find if a max or a min has occurred 

882 

883 

c. . . 
c 



884 


IF 

(NSTEP.GT.l) THEN 

885 



IF (YOLD(4) .LE.0.0.AND.Y(4) .GT.0.0) NMIN = NMIN+1 

886 



IF (YOLD(4) . GE . 0 . 0 - AND . Y (4 ) .LT.O.O) NMAX = NMAX+1 

887 


ENDIF 

888 

c 



889 


IF 

(Y(l) -GT.YMAX) YMAX = Y(l) 

890 

c 



891 

892 

c. . . 
c 

\/ 

Check for termination conditions 

893 

c 


Allowed - radial distance exceeded disout 

894 

c 


Failed - number of steps exceeded 

895 

c 


Re-entrant - trajectory is below "top" of atmosphere 

896 

c 



897 

898 

c 

c 

\/ 

(1) Check for step limit exceeded 

899 

c 



900 

c 



901 


IF 

(NSTEP .GE . LIMIT) THEN 

902 



IRT = 0 

903 



GO TO 260 

904 


ENDIF 

905 

c 



906 

907 

c 

c 

\/ 

(2) Check if y(l) within 1.1 max step lengths of dxsout . 

908 

c 


if so, reduce step size and 

909 

c 


approach boundary at smaller step 

910 

c 
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911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 


IF (Y(l) .GT.DISCK) THEN 
DISTR = ABS(DISOUT 
HSNEK = DISTR/ PVEL 
HCNG = HCNG/2.0 
HCK = HCK/2.0 

IF (HSNEK .LT. HCNG) HCNG = HSNEK 
IF (HSNEK .LT. HCK) HCK = HSNEK 

DISCK = DISOUT - DISTR/2.0 
IF (DISCK. GE. DISOUT) THEN 
DISCK = 24 . 999 
GO TO 210 


Y(l) ) 


923 


ENDIF 

924 


IF (H.LT.l.Oi 

925 


H = 1-^ 

926 


HCK = 1 . ( 

927 


hcng = i.( 

928 


ENDIF 

929 

C 


930 


IF (lERRPT.G' 

931 

C 


932 

210 

IF (Y(l) .GT.: 

933 


IF (H.LE. 

934 


IRT = 

935 


GO TO 

936 


ENDIF 

937 


TAU = TAU 

938 


DO 220 I 

939 


Y(I) = 

940 


F{I) = 

941 

220 

CONTINUE 

942 


endif 

943 


GO TO 130 

944 


endif 

945 

2130 

format {' 2130 


IF (IERRPT.GT.3) WRITE (16.2130) Y (1) . DISCK. PVEL, H, HSNEK, NSTEP 


946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 


YOLD(I) 


C 

c 

c 

c 

c 

C 

C 

C 

C 


..T... 

\/ Have penetrated boundary if you are ete. 

' if Lrge step size, go bac)c one step and 
reduce step length (and adjust “TAU' 

. . 4 - 


+ . . 


230 IF (Yd) .GT. DISOUT) THEN 

IF (IERRPT.GT.3) WRITE (16, 2140) y ( 1 ) , disck, pvel , H, nstep 

if (h.lt.l.Oe-5 .or. hck.lt.l.Oe-5 .or. hcng. It . 1 . Oe-5) then 

IRT = 1 
go to 260 
else 

hck = hck/2.0 
hcng = hcng/2.0 
TAU = TAU - H 
DO 240 1=1/6 
Y(I) = YOLD(I) 

F ( I ) = FOLD ( I ) 

240 CONTINUE 

GO TO 130 
ENDIF 
ENDIF 


c 

c. . 
c 


. ■ 

, Y and F as FOLD 5c YOLD 

\/ Store values or Y ana r aa 

' . ‘ 

C 

C 

DO 250 1=1/6 


158 
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981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 


YOLD(I) = Y(I) 

FOLD (I) = F(I) 

250 CONTINUE 
C 

GO TO 130 

c + + 

rw*::********^*****************^^***********^****^**'^**^*****'^***’'**** 

C *^w*^***^* *^******** ******^*** 

^ ********** 

r trajectory COMPLETE IF YOU ARE HERE 

C - - " " " 

C 

260 CONTINUE 
C 

IF (Y(l) .GE.DISOUT) IRT - 1 
PATH = PVEL*TAU 
ISALT = SALT+0.0001 
LSTEP = BETAST - 1.9 

c - - " ^ " 

C \/ Write out results 

C IRT +1 ALLOWED (FATE = 0) 

Q IRT 0 FAILED (FATE = 2) 

r IRT -1 RE-ENTRANT (FATE = 1) 

C ^ ^ 

C 

IF (IRT.GT.O) THEN 
TCY2 = COS (Y (2) ) 

TSY2 = SIN(Y(2) ) 

YDA5 = Y(5) *TCY2+Y(4) *TSY2 
ATRGl = Y(4)*TCY2-Y(5)*TSY2 
ATRG2 = SQRT(Y(6) *Y(6) +YDA5*YDA5) 

FASLAT = 0.0 

IF (ATRGl .NE.O . 0 .AND.ATRG2 .NE.O . 0) FASLAT = , 

^ ATAN2 (ATRGl , ATRG2 ) *RAD 

IF^U*(6° NE^O.O^^.YDAS.NE.O.O) FASL0N= (Y (3) +ATAN2 (Y (6) , 

. YDA5))*RAD 

IF (FASLON, LT . 0 . 0) FASLON = FASLON+360.0 

IF (FASLON.GT. 360 . 0) FASLON = FASLON-360.0 

^ WRITE (8 2150) GDLATD, GCLATD, GLOND, I ZE, lAZ, PC, FASLAT, FASLON, 

* ' PATH,NMAX,NSTEP,TU100,YMAX, LSTEP, SALT, CNAME 

C 

T FATE = O 

WRITE (7,2160) GDLATD, GLOND, PC, ZED, AZD, ISALT, FASIAT, FASLON, 

* NSTEP , I FATE , CNAME 

2150 FORMAT (2F7 . 2 , F9 - 2 , 15 , 14 , FIO . 3 , 2F8 . 2 , Fll . 5 , 14 , 17 , F9 . 5 , F9 . 4 , 

* I4,F11.1,1X,A6,13X) 

2160 FORMAT (F7 . 2 , F8 . 2 , F9 . 3 , 2F6 . 1 , 17 , F7 . 2 , F8 . 2 , 17 , 3X, 13 , 3X, A6) 

C 

IF (IRT.LT.O) THEN 

RENLAT = (PI02-Y(2) ) *RAD 

RENLON = Y(3)*RAD 

^ WRITE (8,2170) GDLATD , GCLATD , GLOND , I ZE , I AZ , PC , CR , CR , PATH , NMAX 

* , NSTEP , TUI O 0 , YMAX , LSTE P , SALT , CNAME , RENLAT , RENLON 

C 

WRITE n^l80) GDLATD, GLOND, PC,ZED,AZD,ISALT,NSTEP,IFATE, CNAME 

2170 FORMAT (2F7 . 2 , F9 . 2 , 15 , 14 , FIO . 3 , 5X, A1 , 2X, 5X, A1 , 2X, Fll . 5 , 14 , 17 , 

* F9 . 5 , F9 . 4 , 14 , Fll .1, IX, A6 , F6 . 1 , F7 . 1) 

2180 FORMAT (F7 . 2 , F8 . 2 , F9 . 3 , 2F6 . 1 , 17 , 4X, ■ R' , 7X, ' R • , 19 . 3X, 13 , 3X, A6 ) 

c 

280 IF (IRT.EQ.O) THEN 
C 
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1051 


WRITE (8,2190) GDLATD, GCLATD, GLOND , IZE , lAZ , PC , CF, CF, PATH, 


1052 

* 

NMAX,NSTEP,TU100,YMAX, LSTEP, SALT, CNAME 


1053 

c 



1054 


I FATE = 2 


1055 


IF (YMAX.LT.6.6) IFATE = 3 


1056 


WRITE (7,2200) GDLATD , GLOND , PC , ZED , AZD , I SALT , NSTEP, IFATE , CNAME 

1057 


ENDIF 


1058 

2190 

FORMAT (2F7 , 2 , F9 . 2 , 15 , 14 , FIO . 3 , 5X, A1 , 2X, 5X, A1 , 2X, Fll . 5 , 14 , 17 , 


1059 

* 

F9 . 5, F9 . 5 , 14, Fll . 1, IX, A6 , 13X) 


1060 

2200 

FORMAT (F7.2,F8.2,F9.3,2F6.1,I7,4X, 'F' , 7X, 'F* ,I9,3X,I3, 3X, A6 ) 


1061 

c 



1062 


NTRAJC = NTRAJC+1 


1063 


TSTEP = TSTEP+FLOAT(NSTEP) 


1064 

C 



1065 

c 



1066 

c 

\/ Comment out to reduce 10 


1067 

c 



1068 

c 



1069 

c 

WRITE (*,2210) PC, ZED, AZD, NSTEP, IFATE 


1070 

C2210 

FORMAT (IH-f, 22X, 3F7 . 2 , 7x, 216 ) 


1071 

C 



1072 


IRSLT = IRT 


1073 


RETURN 


1074 


END 


1075 


SUBROUTINE FGRAD 


1076 

C 



lU / / 

1078 

c . . . . 
c 

Mod Feb 96 standard reference TJIV (line check 17 Feb) 


1079 

c 

Mod 27 Jan 1999 Change MAGNEW to NEWMAG95 


1080 

c. . . . 



1081 

c 

Programmer - Don F. Smart; FORTRAN77 


1082 

c 

Note - The programming adheres to the conventional FORTRAN 


1083 

c 

default standard that variables beginning with 


1084 

c 

' i ' , ' j ’ , 'k' , ’ 1 ' , 'm* , or ’n' are integer variables 


1085 

c 

Variables beginning with "c" are character variables 


1086 
1 ACT 

c 

All other variables are real 


lUo / 

1088 

c . . . . 
c 

Do not mix different type variables in same common block 


1089 

1 AQA 

c 

Some computers do not allow this 


luyu 

1091 

O r 



1092 


IMPLICIT INTEGER (I-N) 


1093 


IMPLICIT REAL * 8 (A-B) 


1094 


IMPLICIT REAL * 8 (D**H) 


1095 


IMPLICIT REAL * 8 (0-Z) 


1096 

1 AQ'? 

C 



lUV / 

1098 

c . . . . 
c 



1099 


COMMON /WRKVLU/ F ( 6 ) , Y ( 6) , ERAD, EOMC. VEL, BR, BT, BP, B 



1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
nil 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 


c 

c. 

c 


c 

c. 

c 


### 


COMMON /WRKTSC/ TSY2 , TCY2 , TSY3 , TCY3 


F(l) = VEL*Y(4) 

F(2) = VEL*Y(5) /Y{1) 

TSY2 = SIN(Y(2) ) 

TCY2 = COS{Y(2)) 

F(3) = VEL*Y(6) / (Y(l) *TSY2) 

SQY6 = Y{6) *Y(6)/Y(1) 

Y50Y1 = Y{5) /Y(l) 

TAY2 = TSY2/TCY2 
CALL MAGNEW95 

F{4) = EOMC* (Y (5) *BP-Y (6) *BT) +VEL* (Y (5 ) *Y50Y1+SQY6) 

F(5) = E0MC*(Y(6)*BR-Y(4)*BP)+VEL*{SQY6/TAY2-Y50Y1*Y(4)) 

F(6) = EOMC* (Y (4) *BT-Y(5) *BR) -VEL* ( (Y50Y1*Y(6) ) /TAY2+Y(4) *Y(6) / 

* Y(D) 

RETURN 


### 


Y(l) is 


R coordinate 


+ + + • 

Y{2) is THETA coordinate 
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1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 


Y(3) 

is 

PHI coordinate 

Y(4) 

is 

V(R) 

Y(5) 

is 

V (THETA) 

Y(6) 

is 

V(PHI) 

F{1) 

is 

R dot 

F{2) 

is 

THETA dot 

F(3) 

is 

PHI dot 

F(4) 

is 

R dot dot 

F(5) 

is 

THETA dot dot 

F(6) 

is 

PHI dot dot 

BR 

is 

B (R) 

BT 

is 

B (THETA) 

BP 

is 

B{PHI) 

B 

is 

magnitude of magnetic field 






C 

c 
c 
c 
c 
c 
c 

C + + 

c 

END 

SUBROUTINE MAGNEW95 
C 
C. 

C 
C 
C 
C 
C 

c + + * 

CLast Mod 27 Jan 1999 IGRF 95 coefficients , . „ wn 

Mod Feb 1996 standard reference TJIV {line check 17 Feb) 

Mod Nov 1980 for arguments in labeled common 

+ + + + ^ 

+ + 

Programmer - Don F. Smart; FORTRAN77 

Note - The programming adheres to the conventional FORTRAN 


### 


C 

C 

C, , 

C. . 

C 

C 

C 

C 

C 

C 

C. 

C 

C 

C. 

C 


C 

C. 

C 


C 

C. 

c 


Compute Magnetic field ^ ^ 

Derived from NASA (NSSDC) routine NEWMAG version of December 1965 

modified for 10 order field 
Coefficients for IGRF 1995 loaded into this subroutine 
Coefficients obtained from program CNGMAGN 

+ + + 

### 


default standard that variables beginning with 
■ i ' , » j ' , 'k' , ' 1 ' r 'm' ,or ’n’ are integer variables 
Variables beginning with "c" are character variables 
All other variables are real 

+ + + 

Do not mix different type vanities in same common block 

Some computers do not allow this 

^ ^ ^ " ^ 

IMPLICIT INTEGER (I-N) 

IMPLICIT REAL * 8 (A-B) 

IMPLICIT REAL * 8 (D-H) 

IMPLICIT REAL * 8(0-Z) 


COMMON /WRKVLU/ F ( 6) , Y (6 ) , ERAD, EOMC, VEL, BR, BT, BP, B 
COMMON /WRKTSC/ TSY2 , TCY2 , TSY3 , TCY3 


DIMENSION 


G{11,11) ,BM(11) 


C 

C. . . 

C 
C 
C 
C 
C 

c 
c 

c. . . 
c 

c 

c. . 
c 
c 

Cards for FORTRAN 

C 1995.00 Coef in CNGMAG format 

DATA(G(N, 1),N=1,11)/ O.OOOOOOE+00 
c, 0 .296820E+05, 0 . 329550E+04 , 

C, 0 . 165375E+04 , -0 . 952875E+03 , 

c, -0.379844E+03, 


\/ Load in data constants if this is the first time called 
otherwise^ skip to evaluation of magnetic field 
designed to drop high order terms if contribution 
would be less then "BERR" 
also designed so the maximum order of expansion 
can be specified 

- - ^ ^ 

IF (JDATA.EQ.77) GO TO 120 

. . . + + + "T- ■ 

Gauss normalized Schmidt coefficients ordered for fast computation 


IGRF95 


-0.332250E+04, 

-0.209137E+04, 


-0 . 411687E+04 
-0.120656E+04 
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1191 

C 

0.541277E+03/ 


1192 

DATA(G{N, 2),N=1,11)/ 

1193 

c , 

0.178900E+04, 

-0.! 

1194 

c. 

-0 .357864E+04, 

-0.: 

1195 

c, 

-0 . 114663E+04, 


1196 

c 

0. 973144E+03/ 


1197 

DATA(G(N, 3),N=1,11 

)/ 

1198 

c. 

0 .368061E+03, 

-0.: 

1199 

c , 

-0 .182140E+04, 

-0. 

1200 

C/ 

-0.108650E+03, 


1201 

c 

-0 -421384E+03/ 


1202 

DATA(G(N, 4),N=1,11)/ 

1203 

c. 

-0 . 584820E+03 , 

0. 

1204 

c, 

0.574158E+03, 

0. 

1205 

C, 

0 . 995794E+03 , 


1206 

c 

0.826402E+03/ 


1207 

DATA(G(N, 5),N=1,11)/ 

1208 

c. 

0 . 907844E+03 , 

-0 . 

1209 

c, 

0.370495E+03, 

-0 . 

1210 

c, 

-0.507382E+03, 


1211 

c 

0 .233742E+03/ 


1212 

DATA{G(N, 6),N=1,11)/ 

1213 

Cf 

-0 .120658E+04, 

0 . 

1214 

c, 

0 . 182406E+02, 

-0 . 

1215 

c, 

0.134764E+03, 


1216 

c 

-0 .295662E+03/ 


1217 

DATA(G(N, 7).N=1,11)/ 

1218 

c. 

-0 .115071E+04, 

-0. 

1219 

c, 

-0 . 188074E+02 , 

0 . 

1220 

c, 

0.347959E+02, 


1221 

c 

-0 .123960E+03/ 


1222 

DATA(G (N, 8) ,N=1, 11) / 

1223 

Cf 

0 .724020E+03, 

-0. 

1224 

c, 

0.557020E+02, 

0 , 

1225 

c. 

-0.527347E+02, 


1226 

c 

-0 .200432E+02/ 


1227 

DATA(G (N, 9) ,N=1, 11) / 

1228 

c. 

0 .112165E+04, 

-0 

1229 

c, 

-0.686523E+02, 

0 

1230 

c. 

O.OOOOOOE+OO, 


1231 

c 

-0 .245478E+02/ 


1232 

DATA(G (N, 10) ,N=1, 11) / 

1233 

c. 

-0.162975E+04, 

-0 

1234 

C, 

-0 . 156581E+03 , 

-0 

1235 

C, 

0.365430E+01, 



-0 .531800E+04 


1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 


0 . 694430E+04 , 
0 .237646E+04 , 


0 .408071E+04 

45925E+04, -0 . 241868E+04 , 

71375E+03, -0 . 289608E+02 , 


0 . 805270E+03 
320971E+03, 
171361E+04, 


-0 . 607948E+03, 
-0.593873E+03, 


-0 .144990E+04 

04982E+03, 0 ♦ 222593E+03 , 

09137E+02, -0 . 493957E+02 , 


.447330E+03 

344E+03, 0 .141986E + 03 , 

558E+02, -0 . 493957E+02 , 


0 .302450E+03 

57509E+03, 0 . 311041E+03 , 

31392E+02, -0 . 242182E+02 , 


0 .273116E+04 

614352E+02, - 0 . 271676E+03 , 

194178E+01, 0 . 129452E+01 , 


-0 . 804375E+03 


0.561461E+03, 
0 . 626707E+01, 


0 . 242067E+04 


0 . 394630E+03, 
0 . 206718E+02 , 


-0.486572E+03 
-0 .495841E+03, 

0 .400864E+02, 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 


DATA(G(N,11) ,N=1,11)/ 

C, -0 .210692E+03, 
c, 0 . OOOOOOE+00 , 

C, 0.356177E+01, 

C 0 . OOOOOOE+00/ 

DATA JMAG/ 0/,MGNMAX/ 

DATA BM/ 0.100078E+06 
c, 0 . 100078E+06, 0 . 396633E+05, 

c, 0 . 684114E+04 , 0 . 360156E+04 , 

c, 0.489229E+03, 

C 0.152640E+03/ 

1995.00 Coef in CNGMAG format 


0 . 701225E+03, 
0 . 245478E+02 , 


-0 .432758E+04 
-0.268125E+03 


-0 . 113872E + 04 
0 . 560824E+02 


0 . 880585E + 03 
0 .372776E+03 


-0 - 857832E+02 
0 . 374307E+03 


-0 .694545E+02 
-0 . 593223E+02 


-0 . 930726E+01 
-0 . 343261E+02 


-0 . 987915E+02 
0 . OOOOOOE+00 


-0 .177967E+03 
0 .438695E+01 


0 .235837E+03 
-0 . 609049E+00 


0 . 295662E+03 
0 . 265478E+01 


11/,GSUM/ -0 . 885846E+05/ 


0 . 253449E+05 , 
0 . 197007E+04 , 


0 . 134069E+05 
0 .913524E+03 


IGRF95 


***********^*******^*^*********^********************^************* 

* The array G contains Gauss normalized Schmidt coef ficients 

* the array G contains both the G and H coefficients 

* G(l,l> = 0.0 1 ^ 

*Schmidt G(N,M) corresponds to -G (NN+1 , MM+1) Gauss normalized co 
^Schmidt H(N,M) corresponds to -G( MI ,NN+1) Gauss normalized coef 

* where MI = M 

*****t.*****^*****************^*****************************^***^** 

IF (GMSUM.EQ.O) GO TO 110 
P22 * 0. 
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1261 


BERR == 0,0001 


1262 


AR = 0. 


1263 


DO 100 L = 1, MGNMAX 


1264 


DO 100 M = 1, MGNMAX 


1265 


AR = AR+1 . 


1266 


P22 = P22+AR*G (M, L) 


1267 

100 

CONTINUE 


1268 


GMSUM := (GMSUM-P22) /GMSUM 


1269 

c 



1270 

1271 

c 

Q* ■* * * 

\/ Note following print and stop statements 


1272 

c 



1273 

c 



1274 


IF (ABS(GMSUM) -GT.l.E-4) THEN 


1275 


WRITE (*, 2200) GMSUM 


1276 


WRITE (7, 2200) GMSUM 


1277 


WRITE {8, 2200) GMSUM 


1278 


STOP 


1279 


ENDIF 


1280 

2200 

FORMAT {' DATA WRONG IN MAGNEW ' , E15 . 6 ) 


1281 

C 



1282 

110 

CONTINUE 


1283 

C 



1284 


GMSUM = 0 . 


1285 


JDATA =77 


1286 

C 



1287 

120 

CONTINUE 


1288 


P21 = TCY2 


1289 


P22 = TSY2 


1290 


AR = 1.0/Y(1) 


1291 

C 


+ . . 

1292 

C . . . . 



1293 

C 

\/ N= 2 

+ . . 

1294 

c . . . . 



1295 

c 



1296 


DP22 = P21 


1297 


TSY3 = SIN(Y(3)) 


1298 


TCY3 = COS(Y(3)) 


1299 


TSP2 = TSY3 


1300 


TCP2 = TCY3 


1301 


DP21 = -P22 


1302 


AOR = AR*AR*AR 


1303 


RC2 = G(2, 2) *TCP2+G(1, 2) *TSP2 


1304 


BR = - (AOR+AOR) * (G (2, 1) *P21+RC2*P22) 


1305 


BT = A0R*(G(2,1)*DP21+RC2*DP22) 


1306 


BP = A0R*(G(1,2)*TCP2-G(2,2)*TSP2)*P22 


1307 

c 


+ . . 

1308 

c. . . 



1309 

c 

\/ N = 3 

+ . 

1310 

c. . . 



1311 

c 



1312 


IF (MGNMAX.lt. 3) GO TO 130 


1313 


AOR = AOR*AR 


1314 


err = BERR*SQRT({BP/P22)**2+BR**2+BT**2) 


1315 


IF ((BM(3)*AOR) .LT.ERR) GO TO 130 


1316 


TSP3 = (TSP2+TSP2) *TCP2 


1317 


TCP3 = (TCP2+TSP2) * (TCP2-TSP2) 


1318 


P31 = P21*P21-0. 333333333 


1319 


P32 = P21*P22 


1320 


P33 = P22*P22 


1321 


DP31 = -P32-P32 


1322 


DP32 = P21*P21-P33 


1323 


DP33 = -DP31 


1324 


RC2 = G(3,2)*TCP2+G{1,3)*TSP2 


1325 


RC3 = G(3,3)*TCP3+G(2,3)*TSP3 


1326 


BR = BR-3.0*AOR* (G(3,l) *P31+RC2*P32+RC3*P33) 


1327 


gip _ g'j'+AOR* (G ( 3 , 1 ) *DP31+RC2 *DP32+RC3*DP33 ) 


1328 


BP = BP-A0R*((G(3,2)*TSP2-G(1,3)»TCP2)*P32+ 


1329 


* 2.0*(G(3,3)*TSP3-G(2,3)*TCP3)*P33) 


1330 

c 
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1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 


c. 

c 

c. 

c 


\/ N 


IF (MGNMAX.lt, 4) GO TO 130 
AOR = AOR*AR 

IF ( (BM(4) *AOR) .LT.ERR) GO TO 130 

TSP4 = TSP2*TCP3+TCP2*TSP3 

TCP4 = TCP2*TCP3-TSP2^TSP3 

P41 = P21*P31“0 .26666666*P21 

DP41 = P21*DP31+DP21*P31'0 .26666666*DP21 

P42 = P21*P32-0 . 20000000*P22 

DP42 = P21*DP32+DP21^P32-0.20000000*DP22 

P43 = P21*P33 

DP43 = P21*DP33+DP21*P33 

P44 = P22*P33 

DP44 = 3.0*P43 

RC2 = G(4, 2) *TCP2+G(1,4) *TSP2 
RC3 = G(4,3) ♦TCP3+G(2,4) *TSP3 
RC4 = G(4,4)*TCP4+G{3,4)*TSP4 

BR = BR-4 , 0*AOR^ (G(4, 1) *P41+RC2*P42+RC3*P43+RC4*P44> 
BT = BT+AOR*(G(4,l)*DP41+RC2*DP42+RC3*DP43+RC4^DP44) 
BP = BP-AOR* { (G{4,2) *TSP2-G(1,4)*TCP2)*P42+ 

♦ 2 .0* (G (4, 3) *TSP3-G(2,4) ^TCP3) *P43+ 

* 3.0* (G(4, 4) *TSP4-G(3,4) *TCP4) *P44) 


C 

C. 

C 

C. 

C 


C 

C, 

c 

c. 

c 


\/ N 


IF (MGNMAX.lt. 5) GO TO 130 
AOR = AOR*AR 

IF ( (BM(5) *AOR) .LT.ERR) GO TO 130 

TSP5 = (TSP3+TSP3) *TCP3 

TOPS = (TCP3+TSP3) * (TCP3-TSP3) 

P51 = P21*P41-0.25714285*P31 

DP51 = P21*DP41+DP21*P41-0 . 25714285*DP31 

P52 = P21*P42-0.22857142*P32 

DP52 = P21*DP42+DP21*P42-0.22857142*DP32 

P53 = P21*P43-0.14285714*P33 

DP53 = P21*DP43+DP21*P43-0 .14285714*DP33 

P54 = P21*P44 

DP54 = P21*DP44+DP21*P44 

P55 s= P22*P44 

DP55 = 4.0*P54 

RC2 = G(5,2)*TCP2+G(1,5)*TSP2 
RC3 = G(5, 3) *TCP3+G(2, 5) *TSP3 
RC4 = G(5,4) *TCP4+G(3, 5) *TSP4 
RC5 = G(5.5)*TCP5+G(4,5)*TSP5 

BR = BR-5.0*AOR* (G(5,l) *P51+RC2*P52+RC3*P53+RC4*P54+RC5*P55) 
BT = BT+AOR* (G(5,l) *DP51+RC2*DP52+RC3*DP53+RC4*DP54+RC5*DP55) 
BP = BP-AOR* ( (G(5, 2) *TSP2-G(1, 5) *TCP2) *P52 + 2 .0* (G(5, 3) *TSP3- 

* G(2,5) *TCP3) *P53+3.0* (G ( 5 , 4 ) *TSP4 - 

* G (3 , 5} *TCP4) *P54+4 . 0* (G(5, 5) *TSP5- 

* G(4, 5) *TCP5) *P55) 


\/ N = 6 


IF (MGNMAX. LT. 6) GO TO 130 
AOR = AOR*AR 

IF ( (BM(6) *AOR> .LT.ERR) GO TO 130 

TSP6 = TSP2*TCP5+TCP2*TSP5 

TCP6 = TCP2*TCP5-TSP2*TSP5 

P61 = P21*P51-0 . 25396825*P41 

DP61 = P21*DP51+DP21*P51-0 . 25396825*DP41 

P62 = P21*P52-0 . 23809523*P42 

DP62 = P21*DP52+DP21*P52-0 .23809523*DP42 

P63 = P21*P53-0.19047619*P43 
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1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


DP63 = P21*DP53+DP21*P53-0 .19047619*DP43 

P64 = P21*P54~0 . 11111111*P44 

DP64 = P21*DP54+DP21*P54-0.11111111*DP44 

P65 = P21*P55 

DP65 = P21^DP55+DP21*P55 

P66 = P22*P55 

DP66 = 5.0*P65 

RC2 = G(6,2)*TCP2+G(1,6)*TSP2 
RC3 ^ G(6,3)*TCP3+G{2,6)*TSP3 
RC4 = G(6,4)*TCP4+G(3,6)*TSP4 
RC5 = G(6,5)*TCP5+G(4,6)*TSP5 
RC6 = G(6,6)*TCP6+G(5,6)*TSP6 

BR = BR-6.0*AOR^(G(6,1)*P61+RC2*P62+RC3*P63+RC4*P64+RC5*P65 

* +RC6*P66) 

BT = bT+AOR* (G(6, 1) *DP61+RC2*DP62+RC3*DP63+RC4*DP64+RC5*DP65 

* +RC6*DP66) 

BP = BP-AOR* ( (G(6, 2) ♦TSP2-G(1, 6) *TCP2) *P62+2 ,0* (G{6, 3) *TSP3 

* -G{2 , 6) *^TCP3) *P63+3 . 0* (G(6, 4) *TSP4 

* -G (3 , 6) *TCP4) *P64+4 . 0* {G (6 , 5) *TSP5 

* -G (4 , 6) *TCP5) *P65+5 . 0* (G (6, 6) *TSP6-G(5, 6) *TCP6) *P66) 

.... + + + + + 

\/ N = 7 


IF (MGNMAX.lt, 7) GO TO 130 
AOR = A0R*AR 

IF ( (BM(7) *AOR) .LT.ERR) GO TO 130 

TSP7 = (TSP4+TSP4) *TCP4 

TCP7 = (TCP4+TSP4) * (TCP4-TSP4) 

P71 = P21*P61-0.25252525*P51 

DP71 = P21*DP61+DP21*P61-0,25252525*DP51 

P72 = P21*P62-0 .24242424*P52 

DP72 = P21*DP62+DP21*P62-0.24242424*DP52 

P73 = P21*P63-0 .21212121*P53 

DP73 = P21*DP63+DP21*P63-0.21212121*DP53 

P74 = P21*P64-0 . 16161616*P54 

DP74 = P21*DP64+DP21^P64 - 0 . 16161616^DP54 

P75 = P21*P65-0 . 09090909*P55 

DP75 = P21*DP65+DP21*P65-0 . 09090909*DP55 

P76 = P21*P66 

DP76 = P21*DP66+DP21*P66 

P77 = P22*P66 

DP77 = 6.0*P76 

RC2 = G(7,2) *TCP2+G(1, 7) *TSP2 
RC3 = G(7,3)*TCP3+G(2,7)*TSP3 
RC4 = G(7,4)*TCP4+G(3,7)*TSP4 
RC5 = G(7,5)*TCP5+G(4,7)*TSP5 
RC6 = G{7,6)*TCP6+G(5,7)*TSP6 
RC7 = G(7,7)*TCP7+G(6,7)*TSP7 

BR = BR-7.0*AOR*(G(7,1)*P71+RC2*P72+RC3*P73+RC4*P74+RC5*P75 

* +RC6*P76+RC7*P77) 

BT = bT+AOR* (G{7, 1) *DP71+RC2*DP72+RC3*DP73+RC4*DP74+RC5*DP75 

* +RC6*DP76+RC7*DP77) 

BP = BP-AOR*((G(7,2)*TSP2-G(1,7)*TCP2)*P72+2.0*(G(7,3)*TSP3 

* -G(2, 7) *TCP3) *P73+3 . 0* (G(7,4) *TSP4 

* -G (3 , 7) *TCP4) *P74+4 . 0* (G {7, 5) *TSP5 

* -G(4,7) *TCP5) *P75+5 .0* (G(7,6) *TSP6 

* -G{5, 7) *TCP6) *P76+6 .0* {G(7, 7) *TSP7-G{6, 7) *TCP7) *P77) 


._ + + + + + + 

\/ N = 8 


IF (MGNMAX.lt. 8) GO TO 130 
AOR = AOR*AR 

IF ( (BM(8) *AOR) .LT. ERR) GO TO 130 
TSP8 = TSP2^TCP7+TCP2*TSP7 
TCP8 = TCP2*TCP7-TSP2*TSP7 
P81 = P21*P71-0.25174825*P61 


+ . . 


+ . . 
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1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 


1494 


1495 


1496 


1497 


1498 


1499 


1500 


1501 


1502 


1503 


1504 

C 

1505 

c 

1506 

c 

1507 

c 

1508 

c 

1509 


1510 


1511 


1512 



1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 


DP81 = P21*DP71+DP21»P71-0 .2517482S*DP61 

P82 = P21*P72-0.24475524»P62 

DP82 = P21*DP72+DP21*P72-0 . 2447SS24*DP62 

P83 = P21*P73-0.22377622*P63 

DP83 = P21*DP73+DP21*P73-0 . 22377622*DP63 

P84 = P21*P74-0 . 18881118*P64 

DP84 = P21*DP74+DP21*P74-0 . 18881118*DP64 

P85 = P21*P75-0.13986013*P65 

DP85 = P21*DP75+DP21*P75-0.13986013*DP65 
P86 = P21*P76-0 . 07692307*P66 

DP86 = P21*DP76+DP21*P76-0 . 07692307*DP66 

P87 = P21*P77 

DP87 = P21*DP77+DP21*P77 

P88 = P22*P77 

DP88 = 7.0*P87 

RC2 = G(8,2)*TCP2+G(1,8)*TSP2 
RC3 = G(8,3)*TCP3+G(2,8)*TSP3 
RC4 = G(8,4)*TCP4+G(3,8)*TSP4 
RC5 = G(8,5)*TCP5+G(4,8)*TSP5 
RC6 = G(8,6)*TCP6+G(5,8)*TSP6 
RC7 = G(8,7)*TCP7+G(6,8)*TSP7 
RC8 = G(8,8)*TCP8+G(7,8)*TSP8 

BR = BR-8.0*AOR*(G(8,1)*P81+RC2*P82+RC3*P83+RC4*P84+RC5*P85 

* +rC6*P06+RC7*P87+RC8*P88) 

BT = BT+A0R*(G(8,1)*DP81+RC2*DP82+RC3*DP83+RC4*DP84+RC5*DP85 

* +rC6*DP86+RC7*DP87+RC8*DP88) 

BP = BP-A0R*({G(8,2)^TSP2-G(1,8)^TCP2)*P82 

* +2.0* (G{8, 3) *TSP3-G{2, 8) *TCP3) *P83 

* +3 .0* (G(8, 4) *TSP4-G{3, 8) *TCP4) *P84 

* +4.0* (G(8, 5) *TSP5-G(4, 8) *TCP5) *P85 

* +5.0* (G(8, 6) *TSP6-G(5, 8) *TCP6) *P86 

* +6.0* (G(8, 7) *TSP7-G(6, 8) *TCP7) *P87 

* +7 . 0* (G(8, 8) *TSP8-G(7, 8) *TCP8) *P88) 


\/ N = 9 


IF (MGNMAX.LT. 9) GO TO 130 
AOR == A0R*AR 

IF ( (BM(9) *AOR) .LT.ERR) GO TO 130 

TSP9 = (TSP5+TSP5) *TCP5 

TCP9 = (TCP5+TSP5) * {TCP5-TSP5) 

P91 = P21*P81-0.25128205*P71 

DP91 = P21*DP81+DP21*P81-0 -25128205*DP71 

P92 = P21*P82-0.24615384*P72 

DP92 = p21*DP82+DP21*P82-0 .24615384*DP72 

P93 = P21*P83-0.23076923*P73 

DP93 = P21*DP83+DP21*P83-0.23076923*DP73 

P94 = P21*P84-0.20512820*P74 

DP94 = P21*DP84+DP21*P84 - 0 . 20512820*DP74 

P95 = P21*P85-0 .16923076*P75 

DP95 p21*DP85+DP21*P85-0 .16923076*DP75 
P96 = P21*P86-0 . 12307692*P76 

DP96 = P21*DP86+DP21*P86*0 . 12307692*DP76 

P97 = P21*P87-0 . 06666666* P77 

DP97 - P21*DP87+DP21*P87-0 . 06666666*DP77 

P98 = P21*P88 

DP98 = P21*DP88+DP21*P88 

P99 = P22*P88 

DP99 = 8.0*P98 

RC2 = G(9,2)*TCP2+G{1,9)*TSP2 
RC3 = G (9, 3) *TCP3+G(2, 9) *TSP3 
RC4 = G(9,4)*TCP4+G(3,9)*TSP4 
RC5 = G(9. 5) *TCP5+G(4, 9) *TSP5 
RC6 = G{9,6>*TCP6+G(5.9)*TSP6 
RC7 = G(9,7)*TCP7+G(6,9)*TSP7 
RC8 = G(9,8)*TCP8+G(7,9)*TSP8 
RC9 = G(9, 9) *TCP9+G(8, 9) *TSP9 

BR = BR-9.0*AOR*(G(9,1)*P91+RC2*P92+RC3*P93+RC4*P94+RC5*P95 
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1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 


* +RC6*P96+RC7*P97+RC8*P98+RC9*P99) 

BT = BT+A0R*(G(9,1)*DP91+RC2*DP92+RC3*DP93+RC4*DP94+RC5«DP95 

* +rC6*DP96+RC7*DP97+RC8*DP98+RC9*DP99) 

BP = BP-AOR* ( (G(9, 2) *TSP2-G(1, 9) *TCP2) *P92+2.0* (G(9,3) *TSP3 

* -G(2, 9) *TCP3) *P93+3 .0* (G(9,4) *TSP4 

* -G(3, 9) *TCP4) *P94+4 . 0* (G(9, 5) *TSP5 

* -G(4, 9) *TCP5) *P95+5 . 0* (G(9,6) *TSP6 

* -G(5, 9) *TCP6) *P96+6 .0* (G(9,7)*TSP7 

* -G (6 , 9) *TCP7) *P97+7 . 0* (G (9, 8) *TSP8 

* -G(7,9)*TCP8)*P98+8.0* (G ( 9 , 9) *TSP9-G {8 , 9) *TCP9) »P99) 


C 

C. 

C 

C. 

C 


C 

C. 

C 

C. 

C 


+ 


+ 


+ 


+ 


\/ N = 10 
. . . + 


+ 


+ 


IF (MGNMAX.lt. 10) GO TO 130 
AOR = AOR^AR 

IF ( (BM(IO) *AOR) .LT.ERR) GO TO 130 

TSPIO = TSP2*TCP9+TCP2*TSP9 

TCPIO = TCP2*TCP9-TSP2*TSP9 

PlOl = P21*P91-0.25098039*P81 

DPIOI = p21*^DP91+DP21*P91-0 .25098039*DP81 

P102 = P21*P92-0 . 24705882*P82 

DP102 = P21*DP92+DP21*P92-0 . 24705882*DP82 

P103 = P21*P93-0.23529411*P83 

DP103 = P21*DP93+DP21*P93-0 . 23529411*DP83 

P104 = P21*P94 “0 . 21568627*P84 

DP104 = P21*DP94+DP21*P94-0 .21568627*DP84 

P105 = P21*P95-0 . 1882352 9*P85 

DP105 = P21*DP95+DP21*P95-0 . 18823529*DP85 

P106 = P21*P96-0 . 15294117*P86 

DP106 = p21*DP96+DP21*P96-0 .15294117*DP86 

P107 = P21*P97-0 .10980392*P87 

DP107 ^ p21*DP97+DP21*P97-0 .10980392*DP87 

P108 = P21*P98-0 . 05882352*P88 

DP108 = P21*DP98+DP21*P98-0 . 05882362*DP88 

P109 = P21*P99 

DP109 = P21*DP99+DP21*P99 

PlOlO = P22*P99 

DPIOIO = 9.0*P109 


RC2 

RC3 

RC4 

RC5 

RC6 

RC7 

RC8 

RC9 

RCIO 

BR = 

* 

BT = 


BP = 


G(10, 2) *TCP2+G(1, 10) ♦TSP2 
G(10, 3) *TCP3+G(2, 10) *TSP3 
G{10, 4) *TCP4+G(3, 10) *TSP4 
G(10, 5) *TCP5+G(4, 10) *TSP5 
G (10, 6) *TCP6+G(5, 10) *TSP6 
G(10, 7) ♦TCP7+G(6, 10) *TSP7 
= G(10, 8) *TCP8+G(7, 10) *TSP8 
= G (10, 9) *TCP9+G(8, 10) ♦TSP9 
= G(10, 10) *TCP10+G (9, 10) *TSP10 

BR-10.0*AOR* (G(10,l) *P101+RC2*P102+RC3*P103+RC4*P104 

+RC5*P105+RC6*P106+RC7*P107+RC8*P108+RC9*P109+RC10*P1010) 

BT+AOR* (G (10 , 1) *DP101+RC2*DP102+RC3^DP103+RC4*DP104 

+RC5*DP105+RC6*DP106+RC7*DP107+RC8*DP108+RC9*DP109 

+RC10*DP1010) 

BP-AOR* ( (G(10, 2) *TSP2-G(1, 10) *TCP2) *P102+2 .0* (G(10, 3) *TSP3 
-G{2, 10) *TCP3) *P103+3 . 0* (G (10 , 4 ) *TSP4 
-G (3, 10) *TCP4) *P104+4 .0* (G(10, 5) *TSP5 
-G(4, 10) *TCP5) *P105+5 .0* (G(10, 6) *TSP6 
-G(5 , 10) *TCP6) *P106+6 . 0* (G(10, 7) *TSP7 
-G(6ll0) *TCP7) *P107+7.0* (G (10 , 8 ) *TSP8 
-G (7, 10) *TCP8) *P108 + 8 . 0* (G(10, 9) *TSP9 
-G(8,10) *TCP9) *P109 + 9.0* (G(10, 10) *TSP10 
-G (9. 10) *TCP10) *P1010) 


. . . . + 

\/ N = 11 


. . . . + 




+ . . . . 


+ . . 


+ . . 






IF (MGNMAX.LT.il) GO TO 130 
AOR = AOR*AR 
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1611 

IF ( (BM 

1612 

TSPll 

1613 

TCPll 

1614 

Pill 

1615 

DPlll 

1616 

P112 

1617 

DP112 

1618 

P113 

1619 

DP113 

1620 

P114 

1621 

DP114 

1622 

P115 

1623 

DP115 

1624 

P116 

1625 

DP116 

1626 

P117 

1627 

DP117 

1628 

P118 

1629 

DP118 

1630 

P119 

1631 

DP119 

1632 

PlllO 

1633 

DPlllO 

1634 

Pllll 

1635 

DPllll 

1636 

RC2 = 

1637 

RC3 = 

1638 

RC4 = 

1639 

RC5 = 

1640 

RC6 = 

1641 

RC7 = 

1642 

RC8 = 

1643 

RC9 = 

1644 

RCIO = 

1645 

RCll = 

1646 

BR = B 


1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 


c 

c. 

c 

c. 

c 


IF { (BM(ll) *AOR) .LT.ERR) GO TO 130 
s (TSP6+TSP6) ^TCP6 
= (TCP6+TSP6 ) * (TCP6 -TSP6 ) 
r P21*P101-0.25077399*P91 
= P21^DP101+DP21*P101-0 . 25077399*DP91 
= P21*P102-0.24767801*P92 
= P21*DP102+DP21*P102-0 . 24767801*DP92 
= P21*P103-0.23839009*P93 
= P21*DP103+DP21*P103-0 . 2383 9009*DP93 
= P21^P104-0.22291021*P94 
= P21*DP104+DP21*P104 - 0 . 222 9102 1*DP94 
= P21*P105-0 . 20123839*P95 
= P21*DP105+DP21*P105-0 . 20123839*DP95 
= P21*P106-0.17337461*P96 

= P21*DP106+DP21*P106-0 -1733 7461 *DP96 

= P21^P107-0 .13931888*P97 

= P21*DP107+DP21*P107-0 .139318B8*DP97 

= P21*P108*0 . 09907120^P98 

= P21*DP108+DP21*P108-0 -09907120*DP98 

= P21*P109-0.05263157*P99 
= P21*DP109+DP21*P109- 0 .05263157*DP99 
= P21*P1010 

= P21^DP1010+DP21*P1010 
s P22*P1010 
= 10.0*P1110 

G(ll, 2) *TCP2+G(1, 11) *TSP2 
G (11. 3) *TCP3+G(2 , 11) *TSP3 
G (11 , 4 ) *TCP4+G (3 , 11) *TSP4 
G (11, 5) *TCP5+G (4 , 11) *TSP5 
G(ll,6) *TCP6+G(5, 11) *TSP6 

G(ll,7) *TCP7+G(6, 11) *TSP7 
G(ll, 8) *TCP8+G(7,11) *TSP8 
G(ll, 9) *TCP9+G(8, 11) *TSP9 
G(ll, 10) *TCP10+G(9, 11) *TSP10 
G (11 , 11) *TCP11+G (10,11) *TSP11 

R-ll o*AOR*(G(11,1)*P111+RC2*P112+RC3*P113+RC4*P114 

+RC5*P115+RC6*P116+RC7*P117+RC8*P118+RC9*P119+RC10*P1110 

+RC11* Pllll ) 

BT = bT+AOR* (Gill, 1) *DP111+RC2*DP112+RC3*DP113+RC4*DP114 

+RC5*DP115+RC6*DP116+RC7*DP117+RC8*DP118+RC9*DP119 

-i-RnO*DP1110+RCll*DPllll) 

BP-AORM(G(11,2)*TSP2-G(1,11)*TCP2)*P112+2.0*{G(11,3)*TSP3 


BP 


-G(2,11)*TCP3) 
-G(3,ll) *TCP4) 
-G(4,ll) ♦TOPS) 
-G(5, 11) *TCP6) 
-G(6,11)*TCP7) 
-G(7,ll) *TCP8) 
-G(8,11)*TCP9) 


*P113 + 3.0 * (G(ll,4) *TSP4 
♦P114 + 4.0 * (G (11 , 5) *TSP5 
*P115 + 5.0 * (G (11 , 6) *TSP6 
*P116 + 6.0 * (G(ll, 7) *TSP7 
*P117 + 7.0 * (G(ll, 8) *TSP8 
*P118 + 8.0 ♦ (G (11 , 9) *TSP9 
*P119 + 9.0 * (G (11 , 10) *TSP10 


-go! 11) *TCP10) *P1110+10 . 0^ (G(ll, 11) *TSP11 
-G(10,11)*TCP11) *P1111) 


\/ Convert to units of Gauss 

.... + + 


130 


C 

C. 

C 

C 

C 

C 

c 

c 

c 


BP = BP/P22*1.E-5 
BT = BT*l.E-5 
BR = BR*l.E-5 

B = SQRT(BR*BR+BT*BT+BP*BP) 

return 

.... + + 

Y(l) is R coordinate 
Y(3) is PHI coordinate 
Y(5) is V(THETA) 

F(l) is R dot 
F(3) is PHI dot 
F(5) is THETA dot dot 
BR is B(R) 


Y(2) is THETA coordinate 
Y(4) is V(R) 

Y(6) is V(PHI) 

F(2) is THETA dot 
F(4) is R dot dot 
F(6) is PHI dot dot 
BT is B (THETA) 
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1681 C BP is B(PHl) B is magnitude of magnetic field 

1682 C + + + + + + 

1683 c 

1684 END 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 


PROGRAM TJALLMAG 


Mod 08 Dec 00 Use ALLMAG for magnetic field calculations 

+ + + + .... + + 

Multi-platform COSMIC-RAY TRAJECTORY PROGRAM 
FORTRAN 77 transportable version (no time functions) 

Read in control card; LAT, LON, RIG, ZENITH, AZIMUTH, DELPC, INDO 
Then calculate INDO trajectories 

Starting at PC 

Incrementing at DELPC intervals 

Includes conversion from Geodetic to Geocentric coordinates 
Includes re-entrant albedo calculations 
Uses subroutine SINGLE to do trajectory calculations 
Magnetic field - as determined by the NASA ALLMAG routine 

+ + + + + + • 

Restrictions: Cannot run over N or S pole; will get BETA blowup 


C 

C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

CLast 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. . . . 

c 

c 

c 

c 

c 

c 

c. . . . 

c 

c 

c 

c 


Mod 

Mod 

Mod 

Mod 

Mod 

Mod 

Mod 

Mod 

Mod 

Mod 

Mod 

Mod 


History 
22 Dec 00 
21 Dec 00 
20 Dec 00 
17 Feb 99 
17 Feb 99 
Aug 97 
Jan 97 
Jun 96 
Jun 96 
May 96 
Feb 96 


Use NASA ALLMAG for magnetic field calculations 
Make all intrinsic function double precision for PC 
Insert 8 character format 1000 with AZ & ZE 
if (ymax . It . 6 . 6) IFATE = 3 
set limit to 600000 

Adjust step size to minimize beta problems 
High latitude step size adjust, introduce AHLT 
EDIF limit set to l.Oe-5 
lERRPT formats, Boundary and look ahead 
Make all FORTRAN coding upper case 
Standard reference TJIV line check 

*^M^**-fc****'***********^**************^********^*’*^ 


*♦*■*★**★*♦***♦ 

Timing estimates base on COMPAQ Digital FORTRAN 
Will run on PHI PC at 850 MHZ 55000 steps/sec <Real*8) 

Will run on PHI PC at 700 MHZ 39000 steps/sec {Real*8) 

Will run on PHI PC at 550 MHZ 32000 steps/sec (Real*8) 

Will run on PH PC at 400 MHZ 23000 steps/sec (Real*8) 

► ***★ ************ ***^»*************^********* ******'*' ****** 

* TAPE* Monitor program operation 

* TAPEl Trajectory control cards 

* TAPE7 80 character card image output 

* TAPES 132 character line printer output 

* TAPEl 6 Diagnostic output for trouble shooting 

* Normally turned off (open statement commented out) 
************************************************************** 


Programmer - Don F. Smart; FORTRAN77 

Note - The programming adheres to the conventional FORTRAN 
default standard that variables beginning with 
' i ' , ' j ' , ’k‘ , ' 1 ' , 'm* , or 'n' are integer variables 
Variables beginning with "c" are character variables 
All other varicibles are real 

+ + + + + ; + ;*;• 

Do not mix different type variables in same common block 

Some computers do not allow this 

+ + + + + + 


IMPLICIT INTEGER (I-N) 
IMPLICIT REAL * 8 (A-B) 
IMPLICIT REAL * 8 (D-H) 
IMPLICIT REAL * 8(0-Z) 


COMMON /WRKVLU/ F (6) , Y (6) , ERAD, EOMC, VEL, BR, BT, BP. B 
COMMON /WRKTSC/ TSY2 , TCY2 . TSY3 , TCY3 
COMMON /TRIG/ PI,RAD,PI02 
COMMON /GEOID/ ERADPL, ERECSQ 

COMMON /SNGLR/ SALT , DISOUT , GCLATD, GDLATD , GLOND , GDAZD , GDZED , 
* RYl , RY2 , RY3 , RHT , TSTE P 
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71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
109 

no 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 


COMMON /SNGLI/ LIMIT, NTRAJC, lERRPT 


C 

C. 

C 


c 

c. 

c 

c. 

c 


OPEN (1, FILE='TAPE1' , 
OPEN (7, FILE=’TAPE7' , 
OPEN (8, FILE= 'TAPES ' , 
OPEN (16, FILE='TAPE16 ' 


STATUS OLD’ ) 
STATUS = ’ UNKNOWN ’ ) 
STATUS^ ' UNKNOWN ' ) 
, STATUS = ' UNKNOWN ' ) 


\/ User defined program control 


FSTEP = 4.0EOB 
LIMIT = 600000 


/\ FSTEP 
LIMIT 


is total number of steps before run is terminated 
is max number of steps before trajectory declared 

. . . . + + + + + + • 

\/ Define program constants 


DISOUT 

is 

radial 

distance for trajectory termination 

ERAD 

is 

average earth radius 

this run 

NTRAJC 

is 

number 

of trajectory computed in 

RHT 

is 

top of 

atmosphere for re-entrant 

trajectory 

TSTEP 

is 

number 

of steps executed in this 

run 

. . + 


C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

NTRAJC = 0 

TSTEP =0.0 ’ * 

C 

DISOUT =25.0 
ERAD = 6371.2 
RHT = 20.0 

VEL = 2 . 99792458E5/ERAD 
C 

c + + + + + .... + 

C "VEL" is light velocity in earth radii per second 

C Light speed defined as 299792458 m/s 

c Ref: E. R. Cohne AND B. N. Taylor, "The Fundamental Physical 

C Constants, Physics Today Pll, August 1987. 

c + + + : 

C \/ Define essential trigonometric values 

C + + + + 

C 

c PI = ACOS(-l.O) 

PI = DACOS (-1.0D0) 
rad = 180.0/PI 
PI02 = PI/2.0 


+ + + 

\/ TAPEl must contain trajectory control cards 
Terminate program if no data on TAPEl file 
Terminate if EOF encountered 

Terminate if negative data found on input file 
Terminate if bad data found on input file 

... + + + •• + + 


100 READ (1,1010,IOSTAT=IOSTAT,ERR=120,END=110) GDLATD, GLOND, PC, 
* GDZED , GDAZD , DELPC , INDO , I ERRPT , INDEX 

1010 FORMAT (BZ, 6F8 . 2, 318) 

110 CONTINUE 

IF (lOSTAT-LT. 0} THEN 
WRITE (*,1020) 

GO TO 150 
ENDIF 

1020 FORMAT {' END OF FILE ON TAPE 1 (DATA INPUT) '} 


! Sngl 
!Dbl 
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141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 


120 IF (lOSTAT.GT.O) THEN 

WRITE (^,1030) IOSTAT,GDLATD,GLOND,PC,DELPC, 

* INDO, lERRPT, INDEX 
GO TO 150 

ENDIF , 

1030 FORMAT (' ERROR ON DATA INPUT FILE (TAPEl) , lOSTAT = ,15/ 

* 4F8.3,3I8) 

C 

IF (PC.LE.O) THEN 
WRITE (*,1040) 

GO TO 150 
ENDIF 

1040 FORMAT (' END OF DATA INPUT (NEGATIVE VALUE READ IN) ) 

^ WRITE (*,1050) GDLATD,GLOND,PC,GDZED,GDAZD,DELPC,INDO,IERRPT, INDEX 

1050 FORMAT {' TAPE 1 ',6F7.2,3I6> 


C 

C. , 

c 

c 

c. 

c 


, + + + + + • 

\/ start at top of atmosphere (20 km above surface of oblate earth) 

Codinq is relic of past when ISALT was read in 

... + + + + ^ 

ISALT = 0 

IF (ISALT. LE.O) SALT =20.0 
IF ( ISALT. GT.O) SALT = ISALT 


C 

C. 

C 

C 

C 

C 

C 

C 

C 

c. 

c 


KNT = 0 

IDELPC = DELPC*1000. 0+0. 0001 
INDXPC = PC*1000 - 0+0 . 0001 


For trajectories from Earth 

convert from Geodetic coordinates to Geocentric coordxnates 
Geodetic coordinates used for input 
GEOCENTRIC coordinates used for output 
coordinates are placed in common block /MNSINGL/ 

All calculation are done in Geocentric coordinates! 

\/ Conversion from Geodetic to Geocentric coordinates 


CALL GDGC (TCD, TSD) 


C 

C. 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c. 

c 


c 


c 

c 

c 

c 


\/ Remember positron of initial point on trajectory 
in Geocentric coordinates 

Y(l) is distance in earth radii from geocenter ^ 

Start with height cibove geoid and convert to earth radii 
The initial values of Y(l), Y(2) AND Y{3) are 
calculated in subroutine GDGC 


Coordinate reference system 
Y(l) = R = vertical 

Y(2) = THETA = south 

Y(3) = PHI = east 


RY2 = Y(2) 

RY3 = Y(3) 

RYl = Y(l) 

GDAZ = GDAZD/RAD 
GDZE = GDZED/RAD 
TSGDZE = SIN (GDZE) 
TCGDZE = COS (GDZE) 
TSGDAZ = SIN (GDAZ) 
TCGDAZ = COS (GDAZ) 
TSGDZE = DSIN(GDZE) 
TCGDZE = DCOS(GDZE) 
TSGDAZ = DSIN(GDAZ) 


! Sngl 
! Sngl 
! Sngl 
I Sngl 
!Dbll 
!Dbl 
!Dbll 
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211 

212 

213 

214 

215 

216 


C 

c. 

c 

c 

c 


TCGDAZ = DCOS (GDAZ) 

+ + + + + . . . 

\/ Get Yl, Y2, Y3 components in Geodetic coordinates 
Azimuth is measured clockwise from the north 
in R, THETA, PHI coordinates, in the THETA- PHI plane 


217 

O 1 Q 

C 

The 

angle is 180 - 

AZD 




Zio 

219 

c . . . 
c 







220 


YIGD = 

TCGDZE 





221 


Y2GD = 

-TSGDZE*TCGDAZ 





222 


Y3GD = 

TSGDZE*TSGDAZ 





223 

774 

c 

r 



. + 





225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 


'\/ The small angle delta at the point in apace between the 
downward Geodetic direction and the 
downward Geocentric direction is given by 

DELTA s Geocentric co- latitude + Geodetic latitude - 90 (deg) 

We are looking up . ■ i 

The rotation from Geodetic vertical to Geocentric Vertical 
Is always rotation toward the equator 

\/ Convert from Geodetic to Geocentric Components for Yl, Y2, 


YIGC = Y1GD*TCD+Y2GD*TSD 
Y2GC = -Y1GD*TSD+Y2GD*TCD 
Y3GC = Y3GD 

C WRITE (*,1060) GDZED, GDZE, GDAZD, GDAZ , TSGDZE, TCGDZE , TSGDAZ , TCGDAZ 

C WRITE (*!i060) YIGD, Y2GD, Y3GD,Y1GC, Y2GC, Y3GC 

C1060 FORMAT (' 1050 * , 8F15 . 5) 

C 


C. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 


c 

c 

c 

c 

c 


*******-<(******************************************^ 
Main control of trajectory calculations begins here 
Trajectories are calculated in subroutine SINGLE 
■*♦*★*■*★★■**★■*(*************■* 




PC = rigidity IN GV 

INDXPC = index of rigidity in MV (integer) 

IRSLT = trajectory result 

IRSLT +1 allowed 

IRSLT 0 failed 

IRSLT -1 re-entrant 

+ + + + + 

DO 130 NDO = 1, INDO 

IF (lERRPT.GE.l) WRITE (16,1070) GDLATD, GLOND, KNT , INDO, NDO, 
* IDELPC , INDXPC , DELPC , PC 

CALL SINGLTJ (PC . IRSLT , INDXPC, YlGC, Y2GC, Y3GC) 

KNT = KNT+1 

INDXPC = INDXPC- IDELPC 
PC = FLOAT ( INDXPC) /lOOO.O 

+ + + + + + 

\/ Check termination conditions 


IF (PC .LE. 0.0) GO TO 140 

IF (TSTEP .GE. FSTEP) GO TO 150 

130 CONTINUE 
140 CONTINUE 

1070 FORMAT (’ 1070 ' , 2F7 . 2 , 516 , 2F6 . 2 ) 


!Dbl 
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281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 


c. 

C 

c 

c 

c 

c. 

c 

c 

c. 

c 

c 

c 

c. 

c 


+ + + 

♦ ***■**★*-***■*★******♦’*•■*** 

End of main control loop 

itiUtltlfk****************** 

/\ Go read in next control card 
+ + + 

GO TO 100 

.... + + + 

i,i,iri,*ir*******-mfkir*********^f*** 

End of trajectory calculations 

1tiiii-k*ifkmt******it**********-*f*** 

+ + + 


150 CONTINUE 

WRITE (*, 1120) TSTEP,NTRAJC 
WRITE {8, 1120) TSTEP,NTRAJC 
1120 FORMAT (//' TOTAL NUMBER OF STEPS ’^FIS.O/// 

* ’ TOTAL NUMBER OF TRAJECTORIES 115/// ) 

Write (*,1130) 

1130 format {' End program TJALLMAG') 


STOP 


C 

C 

C 
C 
C 
C 
C 
C 

c 
c 
c. 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


Y{1) 

Y(3) 

Y(5) 

F(l) 

F{3) 

F(5) 

BR 

BP 


+ + 

is R coordinate Y{2) 

is PHI coordinate Y{4) 

is V (THETA) Y(6) 

is R dot F(2) 

is PHI dot F(4) 

is THETA dot dot F{6) 

is B(R) BT 

is B(PHI) B 


t- 

is THETA coordinate 
is V(R) 
is V{PHI) 
is THETA dot 
is R dot dot 
is PHI dot dot 
is B (THETA) 

is magnitude of magnetic field 


ierrpt vlu 
lERRPT = 1 
IERRPT = 1 
IERRPT = 2 
IERRPT = 4 
IERRPT = 3 
IERRPT = 3 


Program Format Variables printed out 


1070 

2000 


"MAIN" 

SINGLTJ 
SINGLTJ 2070 
SINGLTJ 2090 
SINGLTJ 2100 
SINGLTJ 2110 
SINGLTJ 2120 

SINGLTJ 2130 
SINGLTJ 2140 


IERRPT = 3 

IERRPT = 4 
IERRPT = 4 

END 

SUBROUTINE GDGC (TCD, TSD) 


Input to SINGLTJ 
Input to SINGLTJ 

PC, BETA, KBF, RCKBETA, NSTEP , TBETA, Y , H 
Y, F,ACCER,H, NSTEP 
H , HCK , Y ( 1 ) , DELACC , PC , NSTEP 
H, HCK, Y (1) , RFA, PC, NSTEP 

H,HCK,Y{1) ,NAMX,F(ICK) , ICK, FOLD (ICK) 
ICK, PC, STEP 

Y ( 1 ) , DISCK , PVEL , H , HSNEK , HOLD , NSTEP 
Y (1) ,DISCK, PVEL,H, HOLD, NSTEP 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

CLast 


\/ Convert 
Adopted 
GDLATD 
GCLATD 
GDCLT 
ERPLSQ 
EREQSQ 
ERADPR 
ERADER 
ERAD 
ERADFL 
ERADFL 
ERECSQ 
ERECSQ 


+ + + 

from Geodetic to Geocentric coordinates 
from NASA ALLMAG 

= Geodetic latitude (in degrees) 

« Geocentric latitude (in degrees) 

= Geodetic co- latitude 

is earth radius AT poles squared = 40408585 [km sq) 

is earth radius AT equator squared = 40680925 (km sq) 

is earth polar radius = 6356.774733 (km) 

is earth equatorial radius = 6378.160001 

is earth average radius = 6371.25 
is flattening factor = 1.0/298.25 
= (ERADEQ - factor) /ERADEQ 
is eccentricity squared = 0.00673966 
s EREQSQ/ERPLSQ - 1.0 
... + + 


(km) 

(km) 


Mod 15 Jan 97 Common block SNGLR & SNGLI 
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351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 


C 

C 

c. 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c. 

c 

c 


c 

c 

c 


c 

c 

c 


c 


c 

c 

c 


c 

c 

c. 

c 

c. 

c 

c 

c 

c. 

c 

c 

C- 

c 


c 

c 


Mod Feb 96 Standard reference TJIV line check 

.... + 4 . + + + ^ 

Programmer - Don F. Smart; FORTRAN?? 

Note - The programming adheres to the conventional FORTRAN 
default standard that variables beginning with 
'i’,'j','k','l',’m\or ‘n’ are integer variables 
Varicdiles beginning with ”c" are character variables 
All other variables are real 

+ + + . • + + ; + 

Do not mix different type variables in same common block 

Some computers do not allow this 


IMPLICIT INTEGER (I-N) 
IMPLICIT REAL ♦ 8 (A-B) 
IMPLICIT REAL * 8 (D-H) 
IMPLICIT REAL * 8 (0-Z) 


COMMON /WRKVLU/ 
COMMON /WRKTSC/ 
COMMON /TRIG/ 
COMMON /GEOID/ 
COMMON /SNGLR/ 


F(6) ,Y(6) ,ERAD,EOMC,VEL.BR,BT,BP,B 
TSY2 , TCY2 , TSY3 , TCY3 
PI, RAD, PI02 
ERADPL, ERECSQ 

SALT , D I sour , GCLATD , GDLATD , GLOND , GDAZD , GDZED , 
RYl , RY2 , RY3 , RHT , TSTEP 


+ 


ERPLSQ = 40408585.0 
EREQSQ == 40680925.0 
ERADPL = SQRT (ERPLSQ) 

ERADPL = DSQRT (ERPLSQ) 

ERECSQ = EREQSQ/ ERPLSQ - 1.0 

GDCLT = PI 02 -GDLATD /RAD 
TSGDCLT = SIN (GDCLT) 

TCGDCLT = COS (GDCLT) 

TSGDCLT = DS IN (GDCLT) 

TCGDCLT = DCOS (GDCLT) 

ONE = EREQSQ*TSGDCLT* TSGDCLT 
TWO = ERPLSQ* TCGDCLT* TCGDCLT 
THREE =* ONE+TWO 
RHO = SQRT (THREE) 

RHO = DSQRT (THREE) 


! Sngl 
!Dbl 


! Sngl 
ISngl 
•Dbll 
!Dbll 


! Sngl 
!Dbll 


\/ Get geocentric distance from geocenter in kilometers 




DISTKM = SQRT (SALT* {SALT+2.0»RHO) + (EREQSQ*ONE+ERPLSQ*TWO) /THREE) 
DISTKM = DSQRT (SALT* (SALT+2.0*RHO) + (EREQSQ*ONE+ERPLSQ*TWO) /THREE) 


! Sngl 
!Dbll 


, . . . + + : 

TCD and TSD are sine and cosine of the angle the Geodetic vertical 
must be rotated to form the Geocentric Vertical 

X - + + + + + ' 


TCD = (SALT+RHO) /DISTKM 

TSD = (EREQSQ-ERPLSQ)/RH0*TCGDCLT*TSGDCLT/DISTKM 

TCY2 = TCGDCLT*TCD -TSGDCLT* TSD 
TSY2 = TSGDCLT*TCD+TCGDCLT*TSD 

Y(2) = ACOS(TCY2) 

Y(2) = DAC0S(TCY2) 

Y(3) = GLOND/RAD 
Y(l) = DISTKM/ERAD 
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421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 


c 

GCLATD = (PI02-Y(2> ) *RAD 

C WRITE (*,1200) GDLATD , GDCLT , TSGDCLT , TCGDCLT , ONE , TWO , THREE , RHO 

C1200 FORMAT (' 1200 ' , 8F15 . 5 ) 

C WRITE (*,1200) DISTKM,TCD,TSD,TCY2,TSY2, GCLATD 

C 

RETURN 

END 

SUBROUTINE SINGLTJ (PC, IRSLT, INDXPC, YIGC, Y2GC , Y3GC) 

C 

C + ; • 

C Cosmic -ray trajectory calculations subroutine 

c calculates cosmic ray trajectory at rigidity PC 

C - - " " 

C PC - rigidity in GV 

C IRSLT = trajectory result 

C INDXPC == index of rigidity in mv (integer) 

r YIGC Y2GC,Y3GC are initial geocentric coorinates 

C + + + + 

c \/ step size optimization U look ahead for potential BETA problems 

C monitor accelerating terms and reduce step length 

Q if large increase occurs 

C Restart at smaller step size if BETA error occurs 

r + + + + + 

C Restrictions: Cannot run over N or S pole; will get BETA blowup 

C + ^ ^ ^ 

CLast Mod 17 Feb 99 if (ymax, It . 6 . 6) IFATE = 3 

C Mod 18 Jan 97 Patch high latitude beta problem 

C Mod Jan 97 High latitude step size adjust, introduce AHLT 

C Mod Jun 96 EDIF limit set to l.Oe-5 

C Mod Jun 96 lERRPT formats. Boundary and look ahead 

C Mod FEB 96 standard reference TJIV (line check 17 Feb) 

C + + ^ ^ 

C Programmer - Don F. Smart; FORTRAN77 

C Note - The programming adheres to the conventional FORTRAN 

C default standard that variables beginning with 

C 'i‘ 'j','k','l'r'm’,or’n' are integer variables 

C Variables beginning with "c" are character variables 

C All other variables are real 

Q + + 

C Do not mix different type variables in same common block 

C Some computers do not allow this 

C ^ 

C 

IMPLICIT INTEGER (I-N) 

IMPLICIT REAL * 8 (A-B) 

IMPLICIT REAL * 8 (D-H) 

IMPLICIT REAL * 8 (0-Z) 

? • * • ■ 

COMMON /WRKVLU/ F ( 6 ) , Y ( 6 ) , ERAD, EOMC, VEL, BR, BT, BP, B 
COMMON /WRKTSC/ TSY2 , TCY2 , TSY3 , TCY3 
COMMON /TRIG/ PI,RAD,PI02 
COMMON /GEOID/ ERADPL, ERECSQ 

COMMON /SNGLR/ SALT , DISOUT , GCLATD , GDLATD , GLOND , GDAZD , GDZED , 

* RYl , RY2 , RY3 , RHT , TSTEP 

COMMON /SNGLI/ LIMIT, NTRAJC, lERRPT 

? , * • * - 

DIMENSION P(6) ,Q(6) ,R(6) ,S(6) ,YB(6) , FOLD (6) ,YOLD(6) 

? • * * 

C 

CHARACTER*! CF,CR 
CHARACTER* 6 CNAME 
C 
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491 

492 

493 

494 

495 


DATA CF,CR / 
DATA CNAME / 


' , 'R' 
195 


### 


C 

C. . . 
C 


PC , INDXPC , RYl , RY2 , RY3 


497 

498 

499 

500 

501 

502 

2000 

C 

c 

FORMAT { 

BETAST = 
LSTEP = 
KBF = 0 

' SINGLTJ ’ , F8 . 3, 18 , 3F8 . 4) 
2.0 

0 

503 

c 



504 

c 

\/ Runge 

i-Kutta constants 

505 

c 



506 

c 



507 


RC106 == 

1.0DO/6.0DO 

508 

c 

SR2 = SORT (2.0) 

509 


SR2 = DSQRT(2.0D0) 

510 


TMS202 = 

: (2.0-SR2)/2.0 

511 


TPS202 = 

. (2.0+SR2)/2.0 

512 

c 



513 

c. . . . 



514 

c 

\/ Initialize Runge-Kutta variables to zero 

515 

c. . . . 



516 

c 



517 

100 

DO 110 : 

I = 1, 6 

518 


YB ( I) = 0.0 

519 


S(I) 

= 0.0 

520 


R(I) 

= 0,0 

521 


Q(I) 

= 0.0 

522 


P(I) 

= 0.0 

523 


F(I) 

= 0.0 

524 

110 

CONTINUE 

525 

c 



526 


NMAX = 

0 

527 


NMIN = 

0 

528 


NSTEP = 

0 

529 


nstept 

= 0 

530 

c 



531 


TAU = 0 

. 0 

532 


TUlOO = 

0.0 

533 


YMAX = 

RYl 

534 

c 



535 

536 

C 

c 

\/ Define initial point at start of trajectory 

537 

c 

Y(l) 

Y(2), Y(3) are the position vectors 

538 

c. . . 



539 

c 



540 


Y(l) = 

RYl 

541 


Y(2) = 

RY2 

542 


Y(3) = 

RY3 

543 

c 

GRNDKM 

=: (ERADPL/SQRT (1 . 0-ERECSQ*TSY2SQ) ) 

544 


GRNDKM 

= (ERADPL/DSQRT (1 . 0 -ERECSQ*TSY2SQ) ) 

545 


YIO = 

(RHT+GRNDKM) /ERAD 

546 


R120KM 

= (ERAD+120 . 0) /ERAD 

547 

c 



548 

c. . . 

+ . . 


549 

c 

Riqidity = momentum/charge 

550 

c 


use oxygen 16 as reference isotope 

551 

c 

Constants used from Handbook of Physics (7 I7uj 

552 

c 


1 amu = 0.931141 GeV 

553 

c. . . 

+ . . 


554 

c 



555 


anuc = 

16.0 

556 


ZCHARGE = 8.0 

557 

c 



558 


EMCSQ 

= 0.931141 

559 

c 

TENG = 

SQRT( (PC*ZCHARGE) **2+ (ANUC*EMCSQ) **2) 

560 


TENG = 

DSQRT ( (PC^ZCHARGE) **2+ (ANUC*EMCSQ) ** 2 ) 


!Dbl 

!Sngl 

!Dbl 


! Sngl 
!Dbl 


ISngl 

!Dbl 
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561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 


EOMC = -8987.566297^ZCHARGE/TENG 
C GMA = SQRT({(PC*ZCHARGE)/(EMCSQ^ANUO) *♦2+1.0) 

C BETA = SQRT (1 .0-1 . 0/ (GMA*GMA) ) 

GMA = DSQRT{ ( {PC*ZCHARGE) / (EMCSQ*ANUC) ) **2 + l.ODO) 
BETA = DSQRT (l.ODO - 1 . ODO/ (GMA*GMA) ) 

PVEL = VEL*BETA 
HMAX = l.O/PVEL 
DISCK = DISOUT - 1.1*HMAX*PVEL 


C 

C. 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c. 

c 


! Sngl 
I Sngl 
!Dbl 
!Dbl 


\/ 


Set max step length (»HMAX") to 1 earth radii 

PVEL is particle velocity in earth radii per second 

DISCK is check for approaching termination boundary 


(within 

1.1 steps) 



. . . . + 

EDIF = BETA*1.0E-4 
IF (EDIF. LT. 1.0-5) 
IF (BETA. LT. 0.1) 

_i_ X 

EDIF = l.OE-5 
EDIF = l.OE-4 



+ 

\/ Y(4) , Y(5) , Y(6) 

are the velocity 

vectors 


+ 


Y(4) = BETA*Y1GC 
Y{5) = BETA*Y2GC 
Y(6) = BETA*Y3GC 

AZD = GDAZD 
ZED = GDZED 
lAZ = AZD+0 . 01 
IZE = ZED+0.01 

.... + + + + + 

\/ Set HSTART to about 1 % of the time to complete one gyro-radius 

in a 1 Gauss field 

H = [(2.0*PI*33.333*PC)/(BETA*C)]/0.01 

if restart after BETA error, set HCK to small value 
Introduce AHLT to control step size at high lat (beta problem) 
HCK - reduce step size when large acceleration 
HOLD - last step size used 

HCNG - only allow 20% max growth in step size 
HSNEK - attempt to approach boundary quickly 

Problem at z=90 at high lat 

add zen angle in deg to reduce first step 


PTCY2 = ABS(TCY2) 

AHLT = (1.0 + PTCY2>**2 

HSTART = 6.0E-6*PC/(BETA*AHLT + ZED*PTCY2) 
IF (HSTART. LT. 1 . OE- 6) HSTART = l.OE-6 
HOLD = HSTART 
HCK = HSTART 
HCNG = HSTART 


C 

C 

C2010 

C 

C. . . . 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

C 


WRITE (16, 2010) HMAX, HOLD, HCK, HCNG, Y(4) ,Y(5) ,Y{6) , PVEL, NSTEP 

FORMAT (' 2010 M8X, 4F9.6, 3F9.4, F9 . 4 , 9X, 15X, 16 ) 


Start Runge-Kutta 
\/\/\/\/\/\/\/\/ 

\/\/\/\/\/\/ 

\/\/\/\/ 

\/\/ 

\/ 

.... + + + ’"• 

Change in step size criteria, Aug 97 . . , 

remove cos VxB step size, causes problems in tight loops 
step size is now only a function of B and BETA 
. + + + + • 
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631 

C 



632 

130 

IF (HCK,LT.1.0E-6) HCK = l.OE-6 

633 



CALL FGRADA 

634 



HB = 1 .6E-5^PC/ (B*BETA) 

635 



H = HB/BETAST 

636 

C 



637 



IF (KBF.GT.O) H=H/ {FLOAT (KBF*2) ) 

638 



IF (H.GT.HMAX) H = HMAX 

639 



IF (H.GT.HCNG) H = HCNG 

640 



IF (H.GT.HCK) H = HCK 

641 

C 



642 



DO 140 I = 1, 6 

643 



S(I) = H*F(I) 

644 



P(I) = 0.5*S(I) -Q(I) 

645 



YBU) = Y(I) 

646 



Y(I) = Y(I)+P(I) 

647 



R(I) = Y(I) -YB(I) 

648 



Q{I) = Q{I)+3.0*R(I)-0.5*S(I) 

649 

140 

CONTINUE 

650 

c 



651 



CALL FGRADA 

652 

C 



653 



DO 150 I = 1, 6 

654 



S(I) = H*F(I) 

655 



P{I) = TMS202*(S(I) -Q(I) ) 

656 



YB(I) = Y(I) 

657 



Y(I) = Y(I)+P(I) 

658 



R(I) = Y(I) -YB(I) 

659 



Q(I) = Q(I)+3.0*R(I)-TMS2O2*SI 

660 


150 

CONTINUE 

661 

C 



662 



CALL FGRADA 

663 

C 



664 



DO 160 I = 1, 6 

665 



S(I) = H*F(I) 

666 



P(I) = TPS202* (S(I) -Q(I) ) 

667 



YB(I) = Y(I) 

668 



Y(I) = Y(I)+P(I) 

669 



R(I) = Y(I)-YB(I) 

670 



Q(I) = Q(I)+3.0*R(I)-TPS2O2*S 

671 


160 

CONTINUE 

672 

C 



673 



CALL FGRADA 

674 

C 



675 



DO 170 I = 1, 6 

676 



S(I) = H*F(I) 

677 



P(I) == RC106* (S (I) -2 .0*Q{I) ) 

678 



YB(I) = Y(I) 

679 



Y(I) = Y(I)+P(I) 

680 



R(I) = Y(I) -YB(I) 

681 



Q(I) = Q{I)+3.0*R(I) -0.5*S(I) 

682 


17C 

1 CONTINUE 

683 

C 



Oo4 

685 

c 

c 


/\ 

686 

c 


/\/\ 

687 

c 


/\/\/\/\ 

688 

c 


/\/\/\/\/\/\ 

689 

c 


/\/\/\/\/\/\/\/\ 

690 

c 


One Runge-Kutta 

691 

c 


step completed 


692 c 

693 c 


694 


NSTEP = NSTEP+1 

695 


NSTEPT = NSTEPT + 1 

696 


TAU = TAU+H 

697 


HOLD = H 

698 


HCNG = H*1.2 

699 


HCK = HCNG 

700 

C 
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701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 


\/ Emergency diagnostic printout if desired 

4 . + + + + ' 


WRITE (16, 2030) 
WRITE (16, 2040) 


C 
C 

C * 

C2030 FORMAT ( ' 2030 
C2040 FORMAT (’ 2040 
C 


H, Y(l) ,Y(2) ,Y(3) , PVEL,B, NSTEP 
HB,H,HMAX,HOLD,HCK,HCNG, Y(4) ,Y(5) ,Y(6) , 
PVEL,B, NSTEP 

9X, F9.6, 36X, 3F9 . 5 , F9 . 4 , F9 . 5 , 18X, 16 ) 
6F9,6, 3F9 - 5, F9 .4, F9 .5 , 18X, 16) 


\/ Check for altitude less than 100 km 

if less than 120 km, compute exact altitude above oblate earth 
and sum time trajectory is below 100 km altitude, 
set re-entrant altitude at RHT km above oblate earth 
computed from international reference ellipsoid 

. . . + + + + + ' 


IF (YU) .LT.R120KM) THEN 
C TSY2SQ = SIN(Y(2) ) **2 

TSY2SQ = DSIN(Y(2) ) **2 

C GRNDKM = ( ERADPL/SQRT (1.0- ERECSQ*TSY2SQ) ) 

GRNDKM = (ERADPL/DSQRT(1.0-ERECSQ*TSY2SQ) ) 
RIOOKM = (100 . 0+GRNDKM) /ERAD 
R120KM = (120. 0+GRNDKM) /ERAD 
IF (YU) .LT. RIOOKM) TUlOO = TUIOO+H 
PSALT = YU) ^ERAD- GRNDKM 
YIO = (RHT+GRNDKM) /ERAD 


C 

IF (NSTEP. GT. 5) THEN 

IF (YU) .LT. YIO. OR. PSALT. LE. 0.0) THEN 

IF (lERRPT .GT . 2) WRITE (16, 2045) PSALT, Y(l), YIO 
IRT = -1 
GO TO 260 
ENDIF 
ENDIF 
ENDIF 

2045 FORMAT (' 2045 PSALT, Y (1 ) , YIO ' , FIO . 6 , 1PE14 . 6 , E14 . 6 ) 


C 

C. 

C 

C 

C. 

c 

c 


. . . . + + + + • 

\/ Begin error checks 

(1) Check for unacceptable changes in BETA 
. . . . + + + + + • • 

RCKBETA = SQRT(Y(4) *Y(4) +Y(5) *Y(5) +Y(6) *Y(6) ) 
RCKBETA = DSQRT (Y (4) *Y (4) +Y (5) *Y (5) +Y (6) *Y (6) ) 
TBETA = BETA -RCKBETA 
IF (ABS (TBETA) .GT.EDIF) THEN 
KBF = KBF+1 

BETAST = BETAST + AHLT 
EDIF = 2.0*EDIF 

IF {RCKBETA. GT. (1 . 0+EDIF) ) THEN 

BETAST = BETAST+FLOAT (KBF) * (1 . 0+AHLT) 
WRITE (*,2050) KBF, BETA, RCKBETA 
WRITE (*,2060) Y,H, PC, NSTEP 

(16,2050) KBF, BETA, RCKBETA 
(16,2060) Y,H, PC, NSTEP 


WRITE 
WRITE 
ENDIF 


WRITE (16,2070) PC, BETA , KBF , RCKBETA , NSTEP , TBETA , Y , H 
WRITE ( *,2070) PC, BETA, KBF, RCKBETA, NSTEP, TBETA, Y.H 


!Sngl 
!Dbl 
! Sngl 
IDbl 


1 Sngl 
!Dbl 


C 

C 

C 

C 

C 

C 


\/ Check for irrecoverable beta error 

if KBF > 4, set fate to failed and start next rigidity 

+ + + + 

IF (KBF. It. 5) THEN 
GO TO 100 
ELSE 

IRT = 0 
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771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 


PATH = ~PVEL*TAU 
ISALT = SALT+0.0001 
WRITE {*,2080) 

GO TO 280 
ENDIF 
ENDIF 

^2050 FORMAT (' 2050 ' , ' KBF= M5 , 5x, ' error, the velocity of the 

* 'particle (BETA) has exceeded the velocity of light'/ 

* « BETA at start of trajectory was ’,F10.7/ 

* 1 BETA now equals ',F10.7/ 

* » reduce step size and try again ' ) 

(» 2060 ’ , 'Y,H,PC,NSTEP=’ ,8F12.6,I10) 

(' 2070 ' , 'ERROR, Particle BETA changed; ' , 

' PC = ' ,F10.6, ' GV'/ 

Beta at start was ' , FIO . 7 , 17X, ' KBF= ' , 16/ 

Beta new equals ’ , FIO . 7 , lOX, ' step number ',16/ 
Beta difference ’,F10.7/ 

step length reduced and trajectory recalculated 
Y=' ,6F12.6,6X, ' H=’,F15.7) 


2060 FORMAT 
2070 FORMAT 


6x, ' 
6x, 
6x, 
6x, 


■/. 


* 6x,i— , > 

2080 FORMAT {' 2080 Irrecoverable BETA error problem’ /6x, 

* ' Set fate to Failed & make path length negative ' /6x, 

* • Terminate this trajectory & continue with program') 


C 

C 

C 

C 

C 

C 

C 


. . . + + + + 

\/ Continue status checks 

(2) Compute composite acceleration 
. . . + + + + + '"■ 

ACCER = SQRT(F(4) *F(4) +F(5) *F(5) +F(6) *F(6) ) 

ACCER = DSQRT(F{4) *F(4) +F(5) *F(5) +F(6) *F(6) ) 

IF (IERRPT.GT.3) WRITE (16,2090) Y, F, ACCER, H, NSTEP 
2090 FORMAT (' Y,F,A,H ' , f 7 . 4 , 5 f 7 . 3 , lx, lpe8 . 1 , 5e8 . 1 , lx, e8 . 1 , e9.2,I6) 


C 

C 

C 

c 

c 

c 

c 


. + + + 

\/ Continue status checks, make adjustment latitude dependant 
(3) Monitor change in composite acceleration 

If composite acceleration (new- old) change > 5 
If composite acceleration (new/old) ratio > 2 
change step size to a smaller value 


IF (NSTEP. GE. 2) THEN 

I F ( ACCER . GT . ACCOLD ) THEN 
DEIiACC * ACCER-ACCOLD 
IF (DELACC.GT.5.0) THEN 
HCK = HCK/ (1.0+AHLT) 

IF (IERRPT.GT.2) WRITE (16,2100) 

* H,HCK,y(l) ,DELACC, PC, NSTEP 

RFA = ACCER/ACCOLD 
IF (RFA. GT. 2.0) THEN 
HCK = HCK/ (1.0+AHLT) 

IF (IERRPT.GT.2) WRITE (16,2110) 

♦ H,HCK,Y(1) , RFA, PC, NSTEP 

ENDIF 

ENDIF 

ENDIF 


2100 


2110 


FORMAT (' 2100 
'Y(l)=' ,f7.4,2X, 


FORMAT ( 
•Y(l)=' 


2110 
, f7.4,4X, 


, F8 . 6 , 2x, ' HCK= ' , F8 . 6 , 2x, 

' PC= ' , F8 . 3 , 4x , ' NSTEP= ',18) 
, F8 . 6, 2x, 'HCK=' , F8 .6, 2x, 

' , F6 . 2 , 4X, ' PC=' , F8 . 3 , 4x, ’NSTEP=' ,18) 


'H-REDUCE' ,2x, 'H=' 
' DELACC= ' , F6 . 2 , 4X, 
'H-REDUCE' ,2x. 'H= 

' RFA= 


+ . . 


\/ 


.,. + + + ■*“ 

Continue status checks, make adjustment latitude dependant 
(4) Monitor change in acceleration components 

If change in any acceleration component is more than 
a factor of 3 , reduce step length 


. . . + . 




! Sngl 
!Dbl 


Final Rq»nO™tNAG5-8009, Section V,Pan3, PROGRAM TIALLMAO.FOR listing with line nnntbera 


181 


841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 


200 


DO 200 ICK * 4, 6 

AFOLD = ABS (FOLD ( ICK) ) 

IF (AFOLD.GT.3 .0) THEN 

RFCK = ABS (F (ICK) /AFOLD) 

IF (RFCK.GT.3 . 0) THEN 
HCK = HCK/ ( 1 . 0+AHLT) 

IF (IERRPT.GT.2) THEN 

WRITE (16,2120) H, HCK, Y ( 1 ) , NMAX, ICK, F ( ICK) , 
ICK, FOLD (ICK) ,PC,NSTEP 

ENDIF 

ENDIF 

ENDIF 

CONTINUE 


ENDIF 


2120 FORMAT 


C 

C. . 

C 

C 

C 

C. 

c 


( ' 2120 ' , 'H- reduce' ,2X, 

1 _i ^F7.4,2X, 'NAMX=' 

' FOLD (',I1,’)='/F6.2,2X 


>H=' ,F8.6,2X, 'HCK=' 
,I4,2X, 'FC ,11, ') = 


, F8 .6, 2X, 
, F6 .2 , 2X, 


'PC=' ,F6.3,2X, 'NSTEP=' ,16) 


C 

C. 

C 

C 

C 

C 

C 

C 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


ACCOLD = ACCER 


+ . . 


. . . + 

/\ Error checks complete 

\/ Find if a max or a min has occurred 

4 . . + 


IF (NSTEP.GT.l) THEN ^ 

IF (YOLD(4) .LE.0.0.AND.Y(4) .GT.0.0) NMIN=NMIN+1 
IF (Y0LD(4) .GE.O.0.AND.Y(4) .LT.0.0) NMAX = NMAX+1 
ENDIF 


IF (Y(l) -GT.YMAX) YMAX = Y(l) 


\/ Check for termination conditions 

Allowed - radial distance exceeded disout 

Failed “ number of steps exceeded 

Re-entrant - trajectory is below "top" of atmosphere 


\/ (1) Check for step limit exceeded 


IF (NSTEP.GE. LIMIT) THEN 
IRT = 0 
GO TO 260 
ENDIF 


. . . + 

\/ (2) Check if y(D 




within 1.1 max step lengths of disout. 

if so, reduce step size and 

approach boundary at smaller step 

+ 


IF (Y (1) .GT.DISCK) THEN 

DISTR = ABS (DISOUT - Y(D) 

HSNEK = DISTR/PVEL 
HCNG = HCNG/2.0 
HCK = HCK/2.0 

IF (HSNEK .LT. HCNG) HCNG = HSNEK 
IF (HSNEK .LT. HCK) HCK = HSNEK 

DISCK = DISOUT - DISTR/2.0 
IF (DISCK. GE. DISOUT) THEN 
DISCK = 24.999 
GO TO 210 

I^^LlT.1.0E-5 .or. HCK.LT.l.OE-5 .OR. HCNG . LT . 1 . OE-5 ) 
H = l.OE-5 


THEN 
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911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 


HCK = l.OE-5 
HCNG = l.OE-5 
ENDIF 


IF (IERRPT.GT.3) WRITE (16,2130) Y (1) , DISCK, PVEL. H, HSNEK, NSTEP 


210 


IF (Y(l) .GT.DISOUT) THEN 
IF (H.LE. l.OE-5) THEN 
IRT = 1 
GO TO 260 
ENDIF 

TAU = TAU - H 


; 

\/ Backup option invoked if you are here 

, 4 - + . . . 


. + ■ • 


DO 220 I = 1. 6 
Y(I) = YOLDd) 
F { I ) = FOLD ( I } 
220 CONTINUE 

ENDIF 
GO TO 130 


c 

c 

c 

c 

c 

C 

C 

c 

c 




, 

\/ Have penetrated boundary if you are ■ 

if large step size, go back one step and 
reduce step length (and adjust "TAU ) 



230 IF (Yd) .GT.DISOUT) THEN 

IF (IERRPT.GT.3) WRITE (16, 2140) Y (1) , DISCK, PVEL, H, NSTEP 

IF (H.LT. l.OE-5 .OR. HCK. LT . 1 . OE-5 .OR. HCNG . LT . 1 . OE-5) THEN 

IRT = 1 
GO TO 260 
ELSE 

HCK = HCK/ 2.0 
HCNG = HCNG/ 2.0 
TAU = TAU - H 
DO 240 I = 1. 6 
Yd) = YOLD ( I ) 

Fd) = FOLDd) 

240 CONTINUE 

GO TO 130 
ENDIF 
ENDIF 


C 

c. 

C 

c. 

c 


‘ 

W STORE VALUES OF Y AND F AS FOLD & YOLD 

* 


. + ■ 


+ . 


DO 250 I = 1, 6 
YOLDd) = Yd) 
FOLDd) F(I) 
250 CONTINUE 

GO TO 130 


c + — ;*;**I^****4 

C 




+ ;-*:**::*;. 
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981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 


c 

c 

c. 

c 


TRAJECTORY COMPLETE IF YOU ARE HERE 
+ + + + .... 


260 CONTINUE 

IF (Y(l) .GE.DISOUT) 
PATH = PVEL*TAU 
ISALT = SALT+0.0001 
LSTEP = BETAST - 1.9 


IRT = 1 


C 

C. 

C 

C 

c 

c 

c, 

c 

c 

c 


IRT 

+ 1 

ALLOWED 

(FATE = 0) 

IRT 

0 

FAILED 

(FATE = 2) 

IRT 
+ 

-1 

RE-ENTRANT 

(FATE = 1) 


IF (IRT.GT.O) THEN 
TCY2 = COS(Y(2) ) 

TSY2 = SIN(Y{2) > 

TCY2 = DCOS(Y(2)) 

TSY2 = DSIN{Y(2) ) 

YDA5 = Y{5) *TCY2+Y(4> *TSY2 
ATRGl = Y(4) *TCY2-Y(5> *TSY2 
C ATRG2 = SQRT(Y (6) *Y(6) +YDA5*YDA5) 

ATRG2 = DSQRT(Y(6) *Y{6) +YDA5*YDA5) 

FASLAT = 0.0 

C IF (ATRG1.NE.0.0.AND.ATRG2.NE.0.0) 

C * FASLAT = ATAN2 (ATRGl, ATRG2) *RAD 

IF (ATRGl .NE.O .0 .AND. ATRG2 .NE.O .0) 

* FASLAT = DATAN2 (ATRGl, ATRG2) * RAD 

FASLON = Y(3)*RAD 

C IF (Y ( 6 ) . NE . 0 . 0 . 7^ . YDA5 . NE . 0 . 0 ) 

C * FASLON = (Y(3)+ ATAN2 (Y (6) , YDA5) ) *RAD 

(Y(6) .NE.O . 0 .AND.YDA5 .NE.O .0) 

FASLON = (Y(3)+ DATAN2 ( Y (6 ) , YDA5 ) ) *RAD 
(FASLON . LT . 0 . 0 > FASLON = FASLON+360 . 0 

(FASLON. GT . 360 . 0) FASLON *= FASLON- 3 6 0.0 


IF 


IF 
IF 

WRITE (8,2150) GDLATD , GCLATD , GLOND , I ZE , I AZ , PC , FASLAT , FASLON , 

* PATH , NMAX , NSTEP , TUI 0 0 , YMAX , LSTEP , SALT , CNAME 

C 

I FATE = 0 

WRITE (7,2160) GDLATD, GLOND, PC, ZED, AZD, ISALT, FASLAT, FASLON, 

* NSTEP , I FATE , CNAME 
ENDIF 

2150 FORMAT ( 2F7 . 2 , F9 . 2 , 15 , 14 , FIO . 3 , 2F8 . 2 , Fll . 5 , 14 , 17 , F9 . 5 , F9 . 4 , 

* I4,F11.1,1X,A6,13X) 

2160 FORMAT (F7 . 2 , F8 . 2 , F9 . 3 , 2F6 . 1 , 17 , F7 . 2 , F8 . 2 , 17 , 3X, 13 , 3X, A6 ) 

C 

IF (IRT.LT.O) THEN 

RENLAT = (PI02-Y(2) ) *RAD 

RENLON = Y(3)*RAD 
C 

WRITE (8,2170) GDLATD , GCLATD , GLOND , I ZE , I AZ , PC , CR , CR , PATH , NMAX 

* , NSTE P , TUI 0 0 , YMAX , LSTEP , SALT , CNAME , RENLAT , RENLON 
C 

I FATE = 1 

WRITE (7,2180) GDLATD, GLOND, PC, ZED, AZD , ISALT, NSTEP , I FATE , CNAME 
ENDIF 

2170 FORMAT (2F7.2,F9.2, 15, 14, FIO . 3 , 5X, A1 , 2X , 5X , A1 , 2X , Fll .5,14,17, 

* F9 . 5 , F9 .4, 14 , Fll . 1, IX, A6 , F6 . 1 , F7 . 1) 

2180 FORMAT (F7 . 2 , F8 . 2 , F9 . 3 , 2F6 .1,I7,4X, ’R',7X, 'R' ,I9,3X,I3,3X,A6) 

C 

280 IF (IRT.EQ.O) THEN 
C 

WRITE (8,2190) GDLATD, GCLATD, GLOND, I ZE , lAZ , PC, CF, CF, PATH, 

* NMAX , NSTEP , TUI 0 0 , YMAX , LSTEP , SALT , CNAME 


ISngl 

!Sngl 

!Dbll 

IDbll 


!Sngl 

!Dbll 

1 Sngl 
! Sngl 
!Dbll 
!Dbll 

! Sngl 
! Sngl 
•Dbl 
!Dbl 
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1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
nil 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 


I FATE = 2 

* ^7 4X 7X 'FM9,3X,I3,3X,A6) 

2200 FORMAT (F7 . 2 , F8 . 2 , F9 . 3 , 2F6 . 1 , , , » * ' 

C 

NTRAJC = NTRAJC+1 

TSTEP = TSTEP+FLOAT (NSTEP) 

c ^ 

c \/ Comment out to reduce 10 + , 

C - 

c WRITE (*,2210) PC, ZED, AZD, NSTEP, IFATE 

C2210 FORMAT (1H+, 22X, 3F7 . 2 , 7x, 216) 

c 

IRSLT = IRT 

return 

END 

SUBROUTINE FGRADA 

C Programmer - Don F. conventional FORTRAN 

c «ote - beginning w^t. 

<= detauit integer variables 

c Vakables begimring with "c" are character variables 

^ All other variables are real ^ 

■ not mix'diff erent'type' variables 'in’ same common block 

« Some computers do not allow this ^ ^ 

- 

^ IMPLICIT INTEGER (I-N> 

IMPLICIT REAL * 8 (A-B) 
implicit real * 8(D'H) 

IMPLICIT REAL * 8 (0-Z) 

: * * - 

COMMON /WRKVLU/ F (6) , Y (6 ) , ERAD, EOMC, VEL, BR, BT, BP , B 

COMMON /WRKTSC/ TSY2 , TCY2 , TSY3 , TCY3 

: * ■ 

c 

F(l) = VEL*Y(4) 

F(2) = VEL*Y(5) /Y (1) 

C TSY2 = SIN (Y (2) ) 

C TCY2 =: COS(Y(2 

TSY2 = DSIN (Y (2) ) 

TCY2 = DCOS(Y(2)) 

F(3) = VEL*Y(6)/(Y(1)*TSY2) 

SQY6 = Y (6) *Y(6) /Y (1) 

Y50Y1 = Y{5) /Y(l) 

TAY2 = TSY2/TCY2 

I V ■ use NSSDc' routine’ ALLMAG for W«tic field calculations 

c define MODEL and epoch year TM) j^^LMAG 

c need sine and cosine of center in kilometers (RKM) 

^ need radial distance "^^^Hrunits of Gauss 

C Remember, ALMAG returns magnetic field in unit ^ 

- - 


isngl 
! Sngl 
IDbl 
!Dbl 
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1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 


MODEL = 14 
TM = 1995 . 0 

C TSY3 = SIN(Y(3) ) 

C TCY3 = COS(Y(3) ) 

TSY3 = DSIN(Y(3) ) 

TCY3 = DCOS (Y(3) ) 

RKM = Y(l)*6371.2 

CALL ALLMAGI (MODEL, TM, RKM, TSY2 .TCY2 , TSY3 , TCY3 , BR, BT, BP, B) 


I Sngl 
ISngl 
!Dbl 
IDbl 


c write (16,1818) MODEL, TM, Y ( 1 ) , Y (3) , Y (3) , RKM, 

» TSY2,TCY2,TSY3,TCY3, BR,BT,BP,B 

C1818 format( i5, f8.1, 2x, 3F10.5,2X, fl2.3, 2x, 4fl0.5,2x, 


4fl0.5) 


F{4) 

F(5) 

F(6) 


EOMC* (Y(5) ^BP-Y(6) *BT) +VEL* (Y(5) *Y50Y1+SQY6) 

EOMC* (Y (6) *BR-Y(4) *BP) +VEL* (SQY6/TAY2 -Y50Y1*Y (4> ) 

EOMC* (Y(4) *BT-Y(5) *BR) -VEL* { (Y50Y1*Y(6) ) /TAY2+Y (4) ^Y(6) / 
Y(D) 


RETURN 


C 

C. 

C 

C 

C 

C 

C 

C 

c 

c 

c. 

c 


Y(l) is R coordinate 
Y(3) is PHI coordinate 
Y(5) is V (THETA) 

F(l) is R dot 
F(3) is PHI dot 
F(5) is THETA dot dot 
BR is B(R) 

BP is B(PHI) 

,... + + + 


+ + •• 

Y{2) is THETA coordinate 
Y{4) is V(R) 

Y(6) is V(PHI) 

F(2) is THETA dot 
F(4) is R dot dot 
F(6) is PHI dot dot 
BT is B (THETA) 

B is magnitude of magnetic field 




C ProgMin: al lmag_sab . f Version: 1.1 Last Updated: 

C This subroutine contains all the geomagnetic 

r Written in Digital UNIX FORTRAN (12/01/1997) 

!*★***♦ ********************************** ************************ 

; SUBROUTINE ALLMAGl 

;*.*.**.***.*.**********************************************************"** 




SUBROUTINE ALLMAGl (MODEL, TM, RKM, ST, CT, SPH, CPH, BR. BT, BP, B) 


ALMGLOOl 


■k-ki 

* * i 
■kk i 
k k t 
k k 1 
■* *1 

* ★ 1 

* * 
* ★ 


NOTE ADDITION OF NEXT STATEMENT 

* GEOCENTRIC VERSION OF GEOMAGNETIC FIELD ROUTINE 

* LONG DECK, THROUGH NMAX=13, FIXED INDICES WITHOUT DO LOOPS 

* EXECUTION TIME PER CALL FACTOR OF THREE LESS THAN SHORT DECK 

* PROGRAM DESIGNED AND TESTED BY E G STASSINOPOULOS AND G D MEAD, 

* CODE 641, NASA GODDARD SPACE FLT CTR, GREENBELT, MD 20771 

** INPUT MODEL CHOICE OF 14 MODELS - SEE BELOW 

RKM GEOCENTRIC DISTANCE IN KILOMETERS 

** TM time in YEARS FOR DESIRED FIELD 

** ST,CT sin + COS OF GEOCENTRIC COLATITUDE 

** SPH.CPH SIN + COS OF EAST LONGITUDE 

OUTPUT BR,BT,BP GEOCENTRIC FIELD COMPONENTS IN GAUSS 
B FIELD MAGNITUDE IN GAUSS 


IMPLICIT DOUBLE PRECISION (A-H, 0-Z) 


ALMGL002 

ALMGL004 

ALMGL005 

ALMGL006 

ALMGL007 

ALMGL008 

ALMGL009 

ALMGLOlO 

ALMGLOll 

ALMGL012 

ALMGL013 

ALMGL014 


COMMON /TRAJAC/ CONSTEM, T, FILENAM 
COMMON /DIPOLE/ WLONG , COLAT , EM 


DIMENSION TO (14) , NMX (14) , ISUM (14,3) , G (13 , 13) 


ALMGL024 


DATA TO /4*1960., 2*1965. ,1970. ,1900. ,3*1975. ,1985. ,1990. , 1995./, ALMGL025 
$ NMX /lO, 11, 12, 11, 9, 9, 13, 11, 9, 13, 13, 13, 13, 13/ 


INTEGER LSUM(14,3) / -164 6106, -179516 9,-1865298, ' ' 

A-156 8 56, -2191704 , -1996220,-168051, -2252599, -2445733, 

B-2409473, -246795,-62661, -96778, -181519,-83555, -9569, -9599, -8593, 

C-5412 -7351 -11947,-10278,-6777, -8938,-12380,1,-10618,7*1,-2698, 


Dl, 1,1,1/ 


ALMGL026 

ALMGL027 
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1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 


INTEGER*4 G1 (13 , 13 ) , GTl (13 , 13 ) , GTTl (13 , 13) , G2 (13 13) , GT2 (13 , 13) , 

1 GTT2 (13,13) ,G3 (13,13) , GT3 (13,13) .GTT3 (13,13) ,G4 (13 13) ^^”gL^31 

2 GT4 (13 13) GTT4 (13 , 13) , G5 (13 , 13) ,GT5 (13 , 13) ,GTT5 (13 , 13) , iTMHnTm-) 

3 Gr(i3'i3r,GT6(lU3),GTT6(13,13),G7(13,13).GT7(13,13),Grr7(13,13)ALMGL032 

4 ,G8 (13,13) ,GT8(13,13) ,GTT8{13,13) , 

5 09(13,13) ,GT9(13,13) ,GTT9(13,13) , 

6 GIO (13 , 13) ,GT10 (13,13) ,GTT10 (13,13) , 

7 011(13,13) ,GT11 (13,13) , GTTll (13 , 13 ) , 

8 G12(13,13) ,GT12 (13,13) , GTT12 (13 , 13) , 

8 013(13,13) ,GT13(13,13) , GTT13 ( 13 , 13 ) . 

8 G14(13,13),GT14(13,13),GTT14(13,13) ALMGL033 

9 ,LG(13,13,14) ,LGT(13,13,14) ,LGTT(13,13,14) 


REAL*4 GG(13,13,14 
EQUI VALENCE ( G 1 ( 1 


) ,GGT(13,13,14) ,GGTT(13,13,14) , SHMIT (13 , 13 ) 
GG(1) ,LG(1) ) , (GTl(l) ,GGT(1) ,LGT(1) ) , 


A (GTTl (1) ,GGTT( 

B (G2(l) ,LG(1,1,2)) , 
C (G3(l) ,LG(1,1,3) ) , 
D (G4(1),LG(1,1,4)), 
E (G5(l) ,LG(1,1,5) ) , 
F (G6 (1) ,LG(1,1,6) ) , 
G (G7(l) ,LG(1,1,7) ) , 
H (G8(l) ,1/3(1, 1,8) ) , 
I (G9(l) ,LG(1,1,9) ) , 
J (GlO(l) ,LG(1,1,10) 

K, (Gll(l) ,LG(1,1,11) 

L, (G12(l) ,LG(1,1,12) 

M, (G13(l) ,LG(1,1,13) 

N, (G14(l) ,LG(1,1,14) 


1) ,LGTT(1) ) , 

(GT2(1) ,LGT(1,1,2)) , 
(GT3(1) ,LGT(1,1,3)) , 
(GT4(1) ,LGT(1,1,4)) , 
(GT5(1) ,LGT(1,1,5)) , 
(GT6 (1) ,LGT(1,1,6) ) , 
(GT7(1) ,LGT(1,1,7) ) , 
(GT8(1) ,LGT(1,1,8) ) , 
(GT9(1) ,LGT(1,1,9)) , 


(GTT2 (1) , LGTT (1,1,2)) 
(GTT3(1) ,LGTT(1,1,3) ) 
(GTT4(1) ,LGTT(1,1,4) ) 
(GTT5(1) ,LGTT(1,1,5) ) 
(GTT6 (1) , LGTT (1,1,6)) 
(GTT7 ( 1 ) , LGTT (1,1,7)) 
(GTT8 (1) , LGTT (1, 1 , 8) ) 

(GTT9 (1) , LGTT (1, 1, 9) ) 

"GTloUrLCSTu'l' 10)) r (GTTlO(l) ,LGTT(1,1, 
(GTll (1) ,LGT(1, 1,11) ) , (GTTll (1) , LGTT (1,1, 
(GT12(1) ,LGT(1,1,12)) , (GTT12 (1) ,LGTT(1,1. 
(GT13(1) ,LGT(1,1,13)) . (GTT13 (1) , LGTT ( 1 , 1 , 
(GT14 ( 1) , LGT (1,1,14) ) , (GTT14 (1) , LGTT (1,1, 


ALMGL034 

ALMGL035 

ALMGL036 

ALMGL037 

ALMGL038 

ALMGL039 

ALMGL040 

ALMGL041 

ALMGL042 


10 ) ) 
ID) 
12) ) 

13) ) 

14) ) 


★ ★ * * 

★ *** 
* ** * 
* ★ * * 

> * * * * 
r * * * * 
r ■* * * * 

r**** 
t # 

^ ir * * * 
k * * * W 
Dr * '* * * 
1^ * * ■* * 
k * * * * 
* * * 
* ★ * * 


THE FOLLOWING DATA CARDS CONTAIN THE FIELD COEFFICIENTS 
FOR THE FOLLOWING SEVEN MODELS 


G1,GT1 HENDRICKS + CAIN 99 -TERM 

G2,GT2,GTT2 CAIN ET . AL . 120 -TERM 

CAIN + LANGEL 14 3 -TERM 

CAIN + SWEENEY 120 -TERM 

IGRF 1965.0 80-TERM 

LEATON MALIN + EVANS 1965 


G3,GT3 
G4 , GT4 
G5 , GT5 
G6,GT6 


* * 


G7,GT7 

8 

9 

10 

11 

12 

13 

14 


FOR MODEL 6 (LME 
HURWITZ US COAST 
IGRF 1980 
IGRF 1975 
BARRACLOUGH 
AWC 

IGRF 1985 
IGRF 1990 
IGRF 1995 


1965) SET RKM 
4- GEODETIC S. 


GSFC 9/65 
GSFC 12/66 
POGO 10/68 
POGO 8/69 
10/68 
80 -TERM 
= 6371.2 + 
168-TERM 


1960 

1960 

1960 

1960 

1965 

1965 


80-TERM80-TERM 
16 8 -TERM 


EPOCH 
EPOCH 
EPOCH 
EPOCH 
EPOCH 
EPOCH 
ALTITUDE 
EPOCH 1970 
EPOC980. 

EPOCH 1975. 


1985 

1990 

1995 


ALMGL043 

ALMGL044 

.ALMGL045 

.ALMGL046 

.ALMGL047 

.ALMGL048 

.ALMGL049 

.ALMGL050 

ALMGL051 

.ALMGL052 


HENDRICKS / CAIN ET AL MODEL * 99-TERM GSFC 9/65 EPOCH 1960.0 

DATA G1 / 10, -304249,-15361,13009,9576,-2277,498,709,48,99,3*0, ^^^053 

c'7'5C'79Q^*0 -19498. ALMGL054 

J -186,125,80,164,-9,6*0,-139,12,153,-73,-6,45,6,84 0/ ALMGL065 

DATA GTTl /I, 168*0/ 

CAIN ET AL 120-TERM GSFC 12/66 EPOCH 1960.0 

DATAG2 / 10, -304012,-15401,13071,9493,-2335,492,722 85,104,-29, ^^66 

A 2*0,57782,-21638,29979,-19889,8035,3557 575,-537 65,58,-^^ ALMGL068 

82*0,-19320,2029.15903,12768,5029,2284,-8.79,-93,75,-22.2 0, 425 , 
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1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 


DATA GT2 / 100, 1«03 - '2329 , - 93 , 145 , 161 , -42 , 5 , ' ' ALMGL076 

ig3f5^2:o'-9" ' r g- 3 4 ;9 

, 43 , '36,5,2*0, -96,1, ' 1 45 -5 75 -46,31, ALMGL081 

N -79,5,10,-36,-43,-42,37,16 2*0,66 54 3,35 ^3 1,45, 5,75, ^^^082 

0 2*0,-61,-64,2,5,-63,-7,7,-3 -2,-45,-23 28 0/ . 43 , 114 , -18 , ALMGL083 

^..TA_OTT 2 i/ 1000 , 8 ^ 


J 

K 

L 

M 


ALMGL085 

ALMGL086 

ALMGL087 

ALMGL088 

ALMGL089 


n 7*0 95 -7 79 -183 7 , 8 , 50 , -4 , - 8 , 5 , -8 , 2*0 , 4 , 56 , -35 , -47 , - 97 , 15 , -11 , 

R 7 7 'io 46.; -7,1,-24,56,26,-27,-2,-6,1,2*0,20,-11,15, 

S -2;,2;,-io;23,-l,5,-9,1.2*0,-14,16,14.5,-8 16,ll,-4^-8 6 1,2*0 
T -15, -12, 5, -11, 0,-3, -9, -3, -7, 5, 5, 2*0, 22, 7, -2, 9, 6, -1,9, -4, 19, 9,4, 

U 2*0,-12,-14,1,1,-11,-1,1.-3'3'-®'-2'28*0/ 

CAIN / LANGEL * 143-TERM POGO 10/68 EPOCH 1960.0 

DATA G3 / 10, -304650,-15414,13258,9591,-2343,491 759,74,110,-26, 

, 1303 . -452,-37,-83 . ° 17. ALMGL096 

66,-114,26,78.-35.0,-579,-250 -8 63,95 -117. 376 227.79.8 

-13,0,101,-130,115,-164,55 223 -49.-262,351 51,^53,25,0, JO^,^ 'mJ4GL098 

H 6, -15,14,34,148,24, -9. -24,13. 12, ' ' ' ^ ' 50,14*0/ ALMGL099 

I -137,-27,127,0,-8,44,-1,-39 -6,18.-32,8 -59 17 105 50 ^ 

DATA GT3 / 100,2542,-2390,-559,-62,272,-61-89.61 ^ ■ J ' -441ALMGL101 


B 

C 

D 

E 

F 

G 


M 300', 32;3ii;-635, -315, 149, 96, -85, -28, -2, -34 0 ^26, -48.258, 

N B2 -167 101 99,-57,-43,48,0,-87,-46,-102,25,188,-243,232,523,81, 

1^2 3;!52;o1i5,1iO,1i22, -26, 15. -37,29.91,-498, -14,103.-1^ 

-38,16,67,-14,-83,130,-33,-38,99,50,22,-3,0,21,5,54 -26,-30, ^ 

-39, -2,-104,79,46,-165,0,35, -26,-17,17,18,-50,23,-34,37,22,-155, 

-40,14*0/ 


DATA GTT3 /l, 168*0/ 

CAIN / SWEENEY * 120-TERM POGO 8/69 EPOCH 1960.0 

DATA G4 / 10,-304708,-15425,13334,9647 -2375,448 793,99,96 -17 

r;9;ir266;^ir559!ir92;:5or8^2!9r:"^^^^ 

G 16299 -189 106,206,-2,-207,187,62,-24,2*0,-254,128,31,-25,-21, 

H 7^i;7 ;7!7,;L.;1,2;0,29.35,-7,66,-50,10,-28,21,42,-88,53 28*0/ 

DATA GT4 / 100 , 2682 , -2366 , -724 , -157 , 359 , 12 -160 19 ,17 -3^ , . 

I 1003,150,-1142,-118,58,38,-26,27,-8,-8,2*0 -684 -2832 792 84 

T B76 27 235 72 33 -46,17,2*0,449,-96,177,327,102,-326,128,86,83 

K 9 ^7 2^0 3^9 564 -10 ,-;05. 834. -108, -277,84,42, -37.-12, 2*0 234 

L 40i -I 24 6^ 503, 5i4. 8, -57, 0.-3, -33, 2*0, -65, -238. 249, -170, 234 

M 259 -130 101 49,-48,-33,2*0,-168,-114,58,123,94,40,60,-140,73, 

N sf ;i!2*o!?!; 9 ll06:-9,-49.56.-67.-8,-148.-13.27 2*0 48.42.^^ 

O -41,-22,21,1,-113,16,33,49,2*0,-14,-37,51,-2,4,-19,7,40,-53, , 

P -75,28*0/ 


ALMGL104 

ALMGL105 

ALMGL106 

ALMGL107 

ALMGL108 

ALMGL109 

AliMGLllO 


DATA GTT4 /I, 168*0/ 


ALMGLlll 
ALMGL112 
ALMGL113 
ALMGL114 
ALMGL115 
ALMGL116 
ALMGL117 
ALMGL118 
ALMGL119 
AIiMGL120 
AIiMGL121 
,ALMGL122 
, ALMGL123 
ALMGL124 
ALMGL125 
ALMGL126 
ALMGL127 
ALMGL128 
ALMGL129 


IGRF 1965.0 * 


80-TERM 10/68 EPOCH 1965.0 
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1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DATA G 5 / 1, -30339,-1654,1297,958.-223,47,71,10 

A 2994,-2036,805,357,60, -54,9,4*0, -2006,130,1567 

B -3,4*0,-403,242,-176,843,-392,-26,-229,12,-12,4 

C 256, -161,3,-25,-4,4*0,16,125, -123, -107,77, -51, 
D 106,68,-32, -10,-13,-112,13,-5,4*0,-57,-27,-8,9, 
E 4*0,3, -13,5, -17,4,22, -3, -16,6,56*0/ 

DATA GT5 / 10, 153,-244,2,-7,19,-1,-5,1,4*0,-23, 

F -3, 4, 4*0, -118, -167,-16,7, -30,29,11,-7,6,4*0,42, 

G -5,5*0,-1,16,29,-42,-21,0,-4,3,5*0,23,17,-24,8, 

H-9, -4,20, -11,1,9, -2, -2, 3,4*0, -11,3,4,2,4,2,3, - 6 , 
I -3, -3, -5,56*0/ 

DATA GTT5 /l, 168*0/ 


,4*0,5758,-2123, ALMGL130 
1289,492,246,4,0, ALMGL131 
*0,149,-280,8, -265ALMGL132 
-4, -9, 7,4*0, -14, ALMGL133 
23,-19,-17,-2,12, ALMGL134 
ALMGL135 

87,3,-108,2,11, -3 , ALMGL136 
7, -77 , -38, -1, 6, 19, ALMGL137 
-3,13, -4,0, -1,4*0 , AIjMGL138 
-3,4*0, 1. -2, -3, -2.ALMGL139 
ALMGL140 
ALMGL141 


LEATON, MALIN + EVANS 1965 * 80-TERM EPOCH 1965.0 


DATA G 6 / 1, -30375,-164 

A 2954,-2033,811,357,55,- 
B 8,-6,4*0,-389,230,-141, 
C -264,262,-171,16,-35,5, 
D -18,101,60,-32,-27,-12, 
E 12,4*0,5,-7,3,-20,8,26, 
DATA GT 6 / 10, 155,-266, 
F -182,13,-19,-22,16,18,6 
G -30,-11,6,6*0,19,23,-18 
DATA GTT 6 A i 168*0/ 


8 , 1164 , 930, -179,42,77,11,4*0,5769,-2087, 
56,23,4*0,-1995,116,1579,1299,490,248,12, 

880,-402,-20, -239,5,-17,4*0,142, -276,5, 

4*0,30,135,-123,-100,84,-64,8,-16,20,4*0, 

-110,9,-1,4*0, -47,-35, -9,2,27,-17,-24,2, 
10,-12,7,56*0/ 

0,6,8,7*0,6,83,-13,-95,10,4,-5,6*0,-114, 
*0,32,16,-85,-6,2,-3,14,6*0,30,-7,27,-27, 
, 14,5,17,2,6*0,-22,2,9,-21, -1,-2 


ALMGL142 
ALMGL143 
ALMGL144 
ALMGL145 
ALMGL146 
ALMGL147 
ALMGL148 
ALMGL149 
22, 84*0/ALMGL150 
ALMGL151 


HURWITZ (U S COAST / GEODETIC SURVEY) * 168-TERM EPOCH 1970.0 

DATA G7/10, -302059, -17917, 128 99, 94 75, -214 5, 460,734,121,107, -39,16 
' -4,57446 ,-20664,29971,-20708, 8009,3595,651, -546,77,57,-26,-31,30 

-205 82, 4 A, 16086,12760,4579, 2490, 95. 46, -32,23,7, -36,5, -3699,2456 
-1880,8334,-3960,-290, -2188,175,-124,-110,-19,37,-3,1617,-2758, 

185,-2788,2436, -1669,20, -210, -44 , 131, -15, -3,-13, 157,1420, -1310, 
-911,808, -5 82,-22,-32,45,33,74, -6.4,-171,1146,625,-323, -78,38, 
-1125,143, 34,2,46, -8, -14, -666, -265, -34,81,209, -240, -186,41,125, 
15,6,1, -1 A 121, '160, 22, -176,46,189,-4 6, -187,94 , 9, -8, 2, -12,-174, 

H 163 A! - 27, -32,80,137,-4, -14,-4,22, -24, -1,27,19,0,35,-45,22,-31, 

j 56, -1,-63, 14, 4, 10, -2, 26, -26, -9, 21, -1,18, -14, -28, -17, -14, 6 , -4, -3, 

J 4,9,-1,-10,26,-32,13,-6,-19.7,19,12/ 

DATA GT7/10, 231, -244, -19, -7, 12, -7, 0,3, 4*0. -46, 112,-1, 

K -3,3,4*0,-104, -166,40, -20,-36,12,14,3,4,4*0,72,21,-52, -54, 11,0, 

L 17 6,1,4*0,22,-5,14,-24,-23,-15,6,3,-1,4*0,1,25,-14,9,1,11,-3,2, 

-3 ',4*0, -5, 11, 2, -3, 7, 22, -5, 1,9, 4*0, -17, -3, 7, 1,-2, -3, -2, -1,-2, 4*0, 

N 2 , -6 , -3 , -4 , 1 , -2 , -2 , -1 , 6 , 56*0/ 

DATA GTT7 /I, 168*0/ 

LANGEL FIELD COEFFICIENTS - 120 TERM POGO 8/71 EPOCH 1960 
THIS WILL BE MODEL 13 IF NEEDED 

DATA G13/10, -304609, -15437,13085,9598,-2233,468,725,77,122,-25, 


M 


,ALMGL152 
.ALMGL153 
, ALMGL154 
ALMGL155 
ALMGL156 
ALMGL157 
ALMGL158 
ALMGL159 
ALMGL160 
ALMGL161 
ALMGL162 
ALMGL163 
ALMGL164 
ALMGL165 
ALMGL166 
ALMGL167 
ALMGL168 


2*0,58089,-21750,29974, -19844 ,8125,3588,583.-511,45,64,-22,2*0, 
-19882,2124,15676,13110,5060,2408, -15,46, -59,30,33,2*0,-4408, 
2776,-1449,8684, -3826, -236,-2420,127, -119, -121, -26,2*0,1308, 

-2806,32,-2678,2740,-1513,-18,-352,-18,151,-20,2*0, 124 , 1156, 

-1128, -1205,933, -488,-32, -74,70,15,90,2*0, -67,1085,681,-210, -250, 
-225 Ai9, 147, -185 ,3, 100,2*0, -547,-259,-74,133,212,-188,-320,17, 

G 182 10 -1^2*0,107.-135,60,-182,124,234,2,-231,209,68,-19,2*0, 

H -200,155,13,-52,5,94,152,-4,-78,28,40.2*0,30,19,11,61,-56,6,-50, 

I 50,6, -35, -11,28*0/ 

DATA GT13 / 10,245,-234,-32,-9,12,0,-4,4,-1,0,2*0,-63,104,3,-111, 

J -12 1 4 -3 1,2,0,2*0,-50,-203,39,-16,-44,10,18,0,4.-4,-1,2*0,71, 

K 15 -11, 133,-12,-14.27.2,1,1,-2,2*0,38,21,9,-29,13,-9,-11,11,1,-4, 

L 0 2*0,12,25,-36.19,-15,16,7,0,-2,-1,-2,2*0,-6,-9,12,-13,20,8,-27, 

M 2 14 - 3 , - 5 . 2*0, -16. -2, 4, 3, 1,-1, 13, -9, -2, 3, 0,2*0. -2,0. -5,-1, -7.0, 

N -A 3 ! -15. -1,1. 2*0, -1,1,3, -1, -5, -1, -4, -3,12. -5, -1,2*0. -1,0, 3,0, 

0 1, -1,3, 0,0, -3, 1,28*0/ 

IGRF 1980 FIELD COEFFICIENTS (MODEL = 8 ) 
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1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 


DATA 08/10,-299880, -19970, 12790,9380,-2190,490,700,200,60,-30,0,0, 

A 56060, -19570,30280,-21810,7830,3570,650, -590,70,110,-40,0,0, 

B -21290,-1990,16620,12510,3980,2610,420,20,10,20,20,0,0, 

C -3350,2710, -2520,8330,-4190, -740, -1920, 200,-110,-120,-50,0,0, 

D 2120, -2570,530, -2980,1990, -1620,40, -130,-70,90,-20,0,0, 

E 460,14 90, -1500, - 780 , 920 , -480 , 14 0 , 10 , 40 , -30,50,0,0, 

F -150,930,710,-430,-20,170,-1080,110,30,-10,30,0,0, 

G -830,-280, -50,160,180, -230 , -100, -20,70,70,10,0,0, 

H 70, -180,40,-220,90,160, -130, -150,-10,10,20,0,0, 

I -210,160,90,-50,-70,90, 100 ,-60,20,-50,30,0,0, 

J 10,10,20,50,-40,-10,-20,40,-10,-60,29*0/ 

DATA GT8 /lO , 224 , -183 , 0 , -14 , 15 , 4 , -10, 8 , 0 , 0 , 2*0 , 

A -159, 113 ,32, -65, -14, 4, 0,-8, -2, 0,0, 2*0, 

B -127, -252,70,-7,-82,-8,34,4,-3,0,0,2*0, 

C 2,27,-79,10,-18,-33,8,5,3,0,0,2*0, 

D 46,16,29,4,-50,2,8,16,-8,0,0,2*0, 

E 18,-4,0,13,21,14,3,1,-2,0,0,2*0, 

F -5, -14,0, -16,5,0, -1,1, 7,0, 0,2*0, 

G -4, 4, 2, 14, -5, -1,11, 0,-3, 0,0, 2*0, 

H - 1 , -7,0, -8,2,2, -11,8,12,0,0,2*0, 

I 52*0/ 

DATA GTT8 / 1,168*0/ 

IGRF 1975 FIELD COEFFICIENTS {MODEL = 9) 

DATA G9 /I, -30186, -1898,1299,951,-204,46,66,11,4*0,5735,-2036, 

A2997 -2144,807,368,57,-57,13,4*0, -2124, -37,1551,1296,462,275,15, 

B-7 3 ' 4*0, -361, 249, -253, 805, -393, -20, -210,7,-12,4*0,148, -264,37, 

C-307, 235, -161, -1,-22, -4, 4*0, 39, 142, -147, -99, 74, -38, -8, -9, 6, 4*0, 
D-23, 102, 88, -43, -9, -4, -114,11, -2, 4*0, -68, -24, -4,11,27, -17, -14, -8, 

E9,4*0,4,-15,2,-19,1,18,-6, -19,1,56*0/ 

DATA GT9 /lO, 256, -249,-38,-2,3,2,0,2,4*0, -102,100,7, -104, -20,-7, 

F5 0,3,4*0,-30,-189,43, -41,-30,11,20,6*0,69,25,-50,-42,-21,-16,28, 
G 6 ^ 2 ' 4*0, 50, 8, 17, -10,-31, -5,0,9, -4,4*0,12,23,-20,13,11,10,9,3, -3, 

H4*o! - 5 , - 1 ,- 2 , -13, 7, 17, -1,3, 6, 4 *0,-14, -1,3, 3, -7, 1,8, -5, -3, 4*0, -2, 

I-4,-2,-3,4, -3, -6,3, -1,56*0/ 

DATA GTT9 /l, 168*0/ 

BARRACLOUGH FIELD COEFFICIENTS (MODEL = 10) 

DATA 010/10,-301036,-19067,12782,9469,-2206,441,715,110,93,-50,28, 
A- 5, 56826, -2 01 65, 30099, -2 14 20, 7 925, 35 14, 699, -53 3, 51, 100, -33, -19, 8, 

B-20647, -581, 16330, 12547,4438, 2623,277, 23,-26,16,24,-45,-13,-3298, 

C2659, -2270, 8310, -4039, -638, -1943,134, -126, -114, -60,29,1,1934, -2658 

D 530, -2852,2125, -1575, -9,-64, -138,106, -14,-12, -6,245,1484, -1613, 
E-834, 923, -402 , 38 , 32 , -1 , 6 , 66 , 13 , 0 , -112 , 1004 , 776 , -403 , -79,156,-1087, 

F170,- 24, -2, 46, -8, -18, -766, -24 7, -45, 70, 245, -218, -12 9, -59, 12 3, 6. 12, 
G1 9, -16, 49, -13 9, 50, -180, 57, 14 5, -111, -16 7, 49, 5, -18, 34, -7, -196, 157, 49 

H -31 -42 97,122,-2,3,5,34,-16,-9,13,20,26,28,-36,-2,3,32,30,-34, 

lllO, 17, 4, 5. 7, -9, -15, 3, 6. -21, 9, -25, -7, 3, 25, 0,1, -5, 4, 0,8, -1,-2, -5, 3, 

J-20,14, -2,11/ 

DATA GTlO/10,268, -250, -38, -9,2,6, -4, 4, 4*0, -101,100,3, -105,-22,-10, 
K9 -2, 3,4*0, -28 , -189, 55 , -47,-40,13,23,-5,0,4*0,72,28, -64,-47,-21, 

L- 21, 35, 3, 4, 4*0, 54, 7, 26, -7, -46, -6, 0,8, -2, 4*0, 9, 26, -27, 13, 11, 13, 8, 6, 

M-4,4*0, - 3, -2, 2, -16,4,20, -4, 5, 6, 4*0, -12, -2, 0,3, -6,0,12, -8, -3,4*0, 
N- 2 ! -3, -3, -3, 5, -5, -6,5,0,56*0/ 

data GTTlO/100.70, -20, -28,0,-13,7,6*0,-49,0,0,0, -17,-14,4,6*0,68, 

00,16, -32,0,-14,12,6*0,13,0,0,0,-14,-10,11,6*0,30,0,0,16,-17,0,0, 
P6*0, -14,10, 0,0, 10, 0, 9, 6*0, 0,0, -10, 88*0/ 

AWC FIELD COEFFICIENTS (MODEL = 11) 

DATA Gll/10, -300557, -19320,12671,9538, -2142,417,743,124,125,-55, 
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1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 c 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 c 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 


A44 -7,56705,-20170,30013,-21272,7861,357,642,-497,84,52,-20,-31, 

80,-20444,-692,16197,12594,4378,2561,183,54,-37,15,20,-27 16 

C-3435,2632,-20B5,8180,-4128,-428,-1994,248,-117,-74,-27,50 4 19 , 

D-2570, 201, -2875,2323 , -1667,32, , -85 , 119 , -40 , -3 , -15 , 314 1507 

E-1374, -819, 862, -589, 106, -37, 59, 23, 91, -13, -12, -199, 1056, 608, -392, 
FlB,146,-1085,150,29,-4,42,-10,-4,-730,-279,-52,82 139 -210,-93, 

03,71,29,-22,10, -36 , 69 , - 154 , 48 , -170 , 110 , 155 , -96 , -191 , 31 , , , , . 

H-172,172,42,-1,-49,91,122,-29,8,-8,50,-21 8,2 6 -5 43 -40,27,-20, 

143,1, -45,21,8, -3,10,24,-21,24,32,17, -7 , -30 , -21 , 2 , -1 , -5 , 13 , 13 , 18, 

J9, 1,-18, 14, -11, 1.19, -33, 6, 15, 7/ 

DATA GTll /lO, 244, -249, -37, 5, 3, -3, 4, 5*0, -103, 99, 12 -104,-18,-3 1, 

K2 4 4*0 -31 -190,31,-34,-37,10,17,6,1,4*0,67,21,-35,-37,-21,-12, 

L2i; -l'4*0, 47 1 ,9 -14,-16,-4,-1,9,-5,4*0,15,20,-13,13,10,6,9,0, 

M-3;!*o! 7,0:-6,-li,ll,15,2,l,5,4*0,-15,0,5,2,-8,2,4,-2,-4,4*0,-2, 

N-4,0, -3.4, -2. -7,0, -2, 56^0/ 


DATA GTTll /I, 168*0/ 


IGRF 1985 FIELD COEFFICIENTS (MODEL = 12) 


DATA G12 / 10,-298770,-20730.13000,9370,-2150,520,750,210,50,- , 

$2*0,54970,-19030,30450, -22080,7800,3560,650, -610,60,100, -40,2 0, 
S-21910 -3090,16910, 12440, 3630,2530,500,2,0,10,20,2*0, 
l3iro'2840^2960, 8350, -4260,^ 

$2330,-2500,680,-2980,1690,-1610,40, -60,-90,90,-20,2*0, 
$470,1480,-1550,-750,950, -480,170,40,20, -30,50,2*0, 

$-160, 900, 690, -500, -40,200, -1020,90,40,-10,30,2*0, 

$-820, -260,-10,230,170,-210,-60,0,40,70,10,2*0, 

$70,-210,50,-250,110,120,-160,-100,-60,20,20,2*0, 

$-210,160,90,-50,-60,90,100,-50,20,-50,30,2*0, 

$10 0,30,60, -40,0, -10,40,0, -60,0,28*0/ 


DATA GT12 / 10,232,-137,51,1,13,14,2,7,4*0, 

$-245,100,34, -46, -6,1, -3, -6, 0,4*0, 

$-115, -202,70,-6,-78,-15,17,-5,3,4*0, 

$53,23,-108,1,-14,-32,6,8,4,4*0, 

$38,22,25,9,-68,1,0,10,-3,4*0, 

$1,-2, -1,6, 0,-1, 9,4, -3,4*0, 

$-4, -11, -8, -23, -5, -1, 12, -5, 1,4*0, 
$2,10,11,19,3,2,9,-1,-5,4*0, 

$1, -10,1, -8, 2, -8, -1,13,-8,4*0,52*0/ 


DATA GTT12 / 1,168*0/ 


IGRF 1990 COEFFICIENTS (MODEL = 13) 

DATA 013/10,-297754,-21358,13146,9389,-2110,607,766,224,44,-36, 

A54109, -18510, 30582, -22402, 7823, 3525, 639, -642, 51, 99, -39, 0,0, 
B-22777, -3800,16932,12456,3239,2438,604,37,-9,8,24^0, , 

C-2865, 2933, -3485,8065, -4227, -1108, -1775,275, -108, 120, 53,0,0, 

D2481, -2395,870,-2994,1417,-1656,20,9, -124,93,-24,0,0, 

E472 1535,-1544,-692,977,-370,167,57,38,-39,44,0,0, 

F-158, 827, 683, -525,18,269, -963,98,38, -14,30,0,0, 

0- 811,-273,6,204,164,-226,-50,-5,26,73,12,0,0, 

H97, -199,71,-221,119,110,-160,-107,-60,15,22,0,0, 

1- 208,154,95, -57,-64,86,91, -66,19,-55,29,0,0, 

013,4,31,56,-42,-5,-15,38,-5,-62,29*0/ 


DATA GT13/10 ,180,-129,33,5,6,13,6,2,4*0, 
A -161,106,24,-67,6,-1,-2,-5,-7,4*0, 

B -158, -138, 0, 0, -70, -16, 18, -3, -2,4*0, 

C 44,16,-106,-59,5, -31,13,6,1,4*0, 

D 26,18, 31, -14, -55, 0, -2,16, -11,4*0, 

E -1,5,4,17,4,23,1,2,0,4*0, 

F 2,-13,0,-9,5,12,12,2,0,4*0, 

G 6, 2, 8, -5, -2, 0,0, 3, -5, 4*0, 

H 5 -2, 3, 3, 4, -5, -3,6, -6,4*0,52*0/ 
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1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 


DATA GTT13 /I, 160*0/ 


IGRF 1995 COEFFICIENTS (MODEL = 14) 

DATA G14/1, -29682,-2197,1329,941,-210,66,78,24,4,-3,0,0, 
A5318, -1789, 3074, -2268,782,352,64, -67 , 4 , 9 , -4 , 0 , 0 , 

B-2356, -425,1685,1249,291,237,65,1,-1,1,2,0,0, 

C-263, 302, -406,769, -421,-122,-172,29,-9,-12,-5,0,0, 

D262, -232,98, -301,116, -167,2,4, -14, 9, -2, 0,0, 

E44,157, -152, -64,99,-26,17,8,4,-4,4,0,0, 

F- 16, 77, 67, -57, 4, 28, -94, 10, 5, -2, 3, 0,0, 

G-77, -25.3,22,16, -23, -3, -2, 0,7,1, 0,0, 

H12, -20,7, -21,12,10, -17, -10, -7, 0,3, 0,0, 

1-19, 15, 11, -7, -7, 9, 7, -8, 1,-6, 3, 0,0, 

J2, 1,3, 6, -4,0, -2,3, -1, -6,29*0/ 

DATA GT14/10, 176 ,-132,15,8,8,5,-2,3,4*0, 

A -183,130,37,-64,9,1,-4,-8,-2,4*0, 

B -150, -88, -8, -2, -69, -15,6, -6, 1,4*0, 

C 41,22, -121, -81,5,-20,19,6,4,4*0, 

D 18,12,27,-10,-46, -1,-2, 12, -11, 4*0, 

E 2,12,3,18,9,23,-2,1,3,4*0, 

F 3, -16, -2, -9, 10,22, 0, 2, 2, 4*0, 

G 0,2,6,-4,O,-3,O,-6,-9,4*O, 

H 4, -2, 2,7,0, -12,-7, -6, -3,4*0,52*0/ 


DATA GTT14 /I, 168*0/ 

DATA SHMIT (1 , 1) /O . 0/ , TMOLD/0 . 0/ , MODOLD /O/ , RAD/ 57 . 29578/ ALMGL169 

***** NON-SUBSCRIPTED, fixed-index version BEGINS HERE (NO DO-LOOPS) A^GL170 


***** BEGIN PROGRAM 

IF(SHMIT(1,1) .EQ.-l.) GO TO 8 

***** INITIALIZE * ONCE ONLY, FIRST TIME SUBROUTINE IS CALLED 
SHMIT (1, 1) =-l . 

DO 2 N=2,13 

SHMIT(N,1) = (2*N-3) * SHMIT(N-1,1) / (N-1) 

JJ=2 

= SHMIT (N,M-1) * DSQRT (1 . 0D0*FLOAT ( (N-M+1) *JJ) / (N+M-2) ) ALMGL179 

SHMIT (M-1,N)=SHMIT(N,M) ALMGL180 


ALMGL171 

ALMGL172 

ALMGL173 

ALMGL174 

ALMGL175 

ALMGL176 

ALMGL177 

ALMGL178 


2 JJ = 1 

DO 7 K=l,14 
F1=LG(1,1,K) 

F2=LGT(1,1.K) 

F3=LGTT(1,1,K) 

NMAX=NMX(K) 

L = 0 

DO 3 1=1,3 

3 ISUM(K,I) = 0 
DO 4 N=l,NMAX 
DO 4 M=1,NMAX 
L = L+1 

ISUM(K, 1) =ISUM(K, 1) +L*LG(N,M,K) 

ISUM(K, 2) =ISUM(K, 2) +L*LGT(N,M,K) 

4 ISUM(K,3) =ISUM(K, 3) +L*LGTT(N,M, K) 

DO 6 1=1,3 

IF(ISUM(K,I) .EQ.LSUM(K,D) GO TO 6 
***** ERROR IN DATA CARDS - NOTE WRITE AND STOP STATEMENTS 
PRINT 5, K,I,LSUM(K,I) ,ISUM(K,I) 

5 FORMAT (///29H DATA WRONG IN ALLMAG- -MODEL , 12 , 3X, 2HI= , II , 3X, 
A17HPRECALCULATED SUM, 110 , 3X, 17HTHIS MACHINE GETS, 110) 

STOP 

6 CONTINUE 

DO 7 N=1,NMAX 
DO 7 M=1,NMAX 

GG(N,M,K)=LG(N,M,K) *SHMIT(N,M)/F1 
GGT (N,M,K) =LGT(N,M,K) *SHMIT(N,M) /F2 

7 GGTT (N, M, K) =LGTT (N, M, K) *SHMIT (N, M) /F3 

8 IF ( (MODEL. EQ. MODOLD) .AND. (TM.EQ.TMOLD) ) GO TO 11 
***** note WRITE STATEMENT - NEW MODEL OR NEW TIME 


ALMGL181 

ALMGL182 

ALMGL183 

ALMGL184 

ALMGL185 

ALMGL186 

ALMGL187 

ALMGL188 

ALMGL189 

ALMGL190 

ALMGL191 

ALMGL192 

ALMGL193 

ALMGL194 

ALMGL195 

ALMGL196 

ALMGL197 

ALMGL198 

ALMGL199 

ALMGL200 

ALMGL201 

ALMGL202 

ALMGL203 

ALMGL204 

ALMGL205 

ALMGL206 

ALMGL207 

ALMGL208 

ALMGL209 

ALMGL210 
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1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 • 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 


, 12, 2X. ' FOR TM = ' , F9 . 3/) 


PRINT 9, MODEL, TM 
9 FORMAT (' 0 MODEL USED IS NUMBER 
IF (MODEL . LT . 1 . OR . MODEL . GT . 14 ) STOP 
MODOLD=MODEL 
TMOLD=TM 
NMAX=NMX (MODEL) 

T=TM-T0 (MODEL) 

DO 10 N^l.NMAX 

10 G^N,M)=Gg'(N,M, MODEL) +T* (GGT (N , M, MODEL) +GGTT (N , M, MODEL) *T) 
***** CALCULATION USUALLY BEGINS 

WLONG = - RAD * DATAN (G(l,2) / G(2,2)) 

COLAT = RAD * DATAN (SQRT (G ( 1 , 2 ) **2 + G(2,2)**2) / G(2,l) 

EM = DSQRT (G(l,2)**2 + G(2,2)**2 + G(2,l)**2) 

CONSTEM = EM / 100000.0 


ALMGL211 

ALMGL212 

ALMGL213 

ALMGL214 

ALMGL215 

ALMGL216 

ALMGL217 

ALMGL218 

ALMGL219 

ALMGL220 


PRINT 19 WLONG, COLAT, EM 

FORMAT (5X 'GEOGRAPHIC COORDINATES OF BOREAL MAGNETIC DIPOLE 
nO^WElT' LONGITUDE = ' , F9 . 3/IOX, 'GEOC. 

$10X, 'EARTH' 'S MAGNETIC MOMENT = ' , F8 . 0 , ' GAMMA /) 

POLE ' / 

ALMGL222 

P21=CT 

ALMGL223 

P22=ST 

ALMGL224 

AR=6371.2/RKM 

ALMGL225 

SP2=SPH 

ALMGL226 

CP2=CPH 

ALMGL227 

DP21==-P22 

ALMGL228 

DP22=P21 

ALMGL229 

AOR=AR*AR*AR 

ALMGL230 

C2=G(2,2) *CP2+G(1,2) *SP2 

ALMGL231 

BR=- (AOR+AOR) * (G (2, 1) *P21+C2*P22) 

ALMGL232 

BT=AOR* (G (2 , 1) *DP21+C2*DP22) 

ALMGL233 

BP=A0R* (G(1,2) *CP2-G(2,2) *SP2) *P22 

ALMGL234 

IF (NMAX.LE, 2) GO TO 1 ^ 

ALMGL235 

ALMGL236 

SP3=(SP2+SP2) *CP2 

ALMGL237 

CP3= (CP2+SP2) * (CP2-SP2) 

ALMGL238 

P31=P21*P21-0 .333333333 

ALMGL239 

P32=P21*P22 

ALMGL240 

P33=P22*P22 

ALMGL241 

DP31='P32-P32 

ALMGL242 

DP32*P21*P21-P33 

ALMGL243 

DP33*-DP31 

ALMGL244 

AORs=AOR*AR 

ALMGL245 


C2=G(3,2)*CP2+G(1,3) *SP2 
C3*G(3, 3) *CP3+G(2, 3) *SP3 

BR=BR-3 . 0*AOR* (G (3 , 1) *P31+C2*P32+C3*P33 ) 

rp:BP-AorM(G(3;2:°rP2-^^ 


ALMGL246 

ALMGL247 

ALMGL248 


1*P33) 

IF (NMAX.LE. 3) GO TO 1 


N= 4 


SP4=SP2*CP3+CP2*SP3 
CP4=CP2*CP3-SP2*SP3 
P4 1=P21*P31“0. 26666666* P21 

DP41=P21*DP31+DP21*P31-0 .26666666*DP21 

P4 2-P2 1*P3 2-0. 20000000* P22 

DP42 = P21*DP32+DP21*P32 - 0 . 20000000*DP22 
P43=P21*P33 

DP43=P21*DP33+DP21*P33 
P44=P22*P33 
DP44=3 . 0*P43 
A0R=A0R*AR 

C2=G(4,2) *CP2+G(1,4) *SP2 
C3=G(4, 3) *CP3+G{2,4) *SP3 

C4=G (4 , 4) *CP4+G (3 , 4 ) *SP4 

BR=BR-4 .0*AOR* (G{4,1) *P41+C2*P42+C3*P43+C4 P4 

BT=BT^A0R*(G(4,1)*DP41+C2*DP42+C3*DP43+C4*DP44) 

BP=BP-AOR*{(G(4,2)*SP2-G(1,4)*CP2)*P42+2.0*(G(4,3) SP3 G(2, 

l*P43+3 .0* (G(4,4) *SP4-G(3,4) *CP4) *P44) 

IF (NMAX.LE. 4) GO TO 1 ^ 


ALMGL250 
ALMGL251 
ALMGL252 
ALMGL253 
ALMGL254 
ALMGL255 
ALMGL256 
ALMGL257 
ALMGL258 
ALMGL259 
ALMGL260 
ALMGL261 
ALMGL262 
ALMGL263 
ALMGL264 
ALMGL265 
ALMGL266 
ALMGL267 
ALMGL268 
*CP3) ALMGL269 
ALMGL270 
ALMGL271 
ALMGL272 
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1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 c 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 c 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 


SP5*(SP3+SP3) *CP3 
CP5=(CP3+SP3) * (CP3-SP3) 

P51=P21*P41-0 .25714285*P31 
DP51=P21*DP41+DP21*P41*0 .257142 85*DP31 
P52=P21^P42-0 .22857142*P32 
DP52=P21*DP42+DP21*P42-0 .22857142*DP32 
P53=P21*P43-0 .14285714*P33 
DP53=P21*DP43+DP21^P43-0 . 14285714*DP33 
P54=P21*P44 

DP54=P21*DP44+DP21*P44 
P55=P22*P44 
DP55=4 .0*P54 
AOR=AOR*AR 

C2=G(5,2) *CP2+G(1,5) *SP2 
C3=G(5,3) *CP3+G(2,5) *SP3 
C4=G (5, 4) *CP4+G (3,5) *SP4 
C5=G(5, 5) ♦CP5+G(4,5) *SP5 

BR=BR-5 . 0*AOR* (G (5 , 1) *P51+C2*P52+C3*P53+C4*P54+C5*P55) 

BT=BT+AOR* (G(5, 1) *DP51+C2*DP52+C3*DP53+C4*DP54+C5*DP55 ) 

BP=BP-AOR* ( (G(5,2)^SP2-G{1,5) *CP2 ) *P52+2 . 0* (G (5 , 3 ) ^SP3-G (2 , 5) *CP3 
l*P53+3 ,0* (G (5,4) *SP4-G(3, 5) *CP4) *P54+4 . 0* (G (5 , 5) *SP5-G (4 , 5) *CP5) * 
255) 

IF (NMAX.LE, 5) GO TO 1 

N= 6 

SP6=SP2*CP5+CP2*SP5 
CP6=CP2*CP5-SP2*SP5 
P61=P21*P51-0 -25396825*P41 
DP61=P21*DP51+DP21*P51-0 .25396825*DP41 
P62=P21*P52-0 .23809523*P42 
DP62=P21*DP52+DP21*P52-0 .23809523 *DP42 
P63-P21*P53-0 . 19047619*P43 
DP63=P21*DP53+DP21*P53-0 .19047619*DP43 
P64=P21*P54-0 . 11111111* P44 

DP64=P21*DP54+DP21*P54-0 .11111111*DP44 
P65=P21*P55 

DP65=P21*DP55+DP21*P55 
P66=P22*P55 
DP66=5 .0*P65 
AOR=AOR*AR 

C2^G(6,2)*CP2+G(1,6)*SP2 
C3=G(6,3)*CP3+G(2,6) *SP3 
C4=G{6,4) *CP4+G(3, 6) *SP4 
C5=G(6, 5) *CP5+G(4,6) *SP5 
C6=G(6,6) *CP6+G(5,6) *SP6 

BR=BR-6 .0*AOR* (G(6, 1) *P61+C2*P62+C3*P63+C4*P64+C5*P65+C6*P66) 
BT=BT+AOR* (G(6, 1) *DP61+C2*DP62+C3*DP63+C4*DP64-fC5*DP65+C6*DP66) 

BP=BP-AOR* { (G (6 , 2) *SP2-G (1 , 6) *CP2) *P62+2 . 0* (G (6, 3) *SP3-G (2 , 6) *CP3 

1*P63+3.0*(G(6,4)*SP4-G(3,6)*CP4)*P64+4.0*(G(6,5)*SP5-G(4,6)*CP5)* 

265+5.0* (G(6, 6) *SP6-G(5, 6) *CP6) *P66) 

IF (NMAX.LE. 6) GO TO 1 


N= 7 


SP7= (SP4+SP4) *CP4 
CP7= (CP4+SP4) * (CP4-SP4) 

P71=P21*P61-0 .25252525*P51 
DP71=P21*DP61+DP21*P61-0 .25252525*DP51 
P72=P21*P62-0 . 24242424 *P52 
DP72=P21*DP62+DP21*P62-0 . 24242424 *DP52 
P73=P21*P63-0 . 21212121*P53 
DP73=P21*DP63+DP21*P63’0 .21212121*DP53 
P74=P21*P64-0 .16161616*P54 
DP74=P21*DP64+DP21*P64-0 . 161616 16*DP54 
P75=P21*P65“0 .09090909*P55 
DP75=P21*DP65+DP21*P65-0 .09090909*DP55 
P76=P21*P66 

DP76=P21*DP66+DP21*P66 
P77=P22*P66 
DP77=6 . 0*P76 
AOR=AOR*AR 

C2=G(7, 2) *CP2+G (1, 7) *SP2 
C3=G (7, 3) *CP3+G (2, 7) *SP3 


ALMGL273 
ALMGL274 
ALMGL275 
ALMGL276 
ALMGL277 
ALMGL278 
ALMGL2 7 9 
ALMGL280 
ALMGL281 
ALMGL282 
ALMGL283 
ALMGL2B4 
ALMGL285 
ALMGL286 
ALMGL287 
ALMGL288 
ALMGL289 
ALMGL290 
ALMGL291 
)ALMGL292 
PALMGL293 
ALMGL294 
ALMGL295 
ALMGL296 
ALMGL297 
ALMGL298 
ALMGL299 
ALMGL300 
ALMGL301 
ALMGL302 
ALMGL303 
ALMGL304 
ALMGL305 
AIiMGL306 
ALMGL307 
ALMGL308 
ALMGL309 
ALMGL310 
ALMGL311 
ALMGL312 
ALMGL313 
ALMGL314 
ALMGL315 
ALMGL316 
ALMGL317 
ALMGL318 
)ALMGL319 
PALMGL320 
ALMGL321 
ALMGL322 
ALMGL323 
ALMGL324 
ALMGL325 
ALMGL326 
ALMGL327 
ALMGL328 
ALMGL329 
ALMGL330 
ALMGL331 
ALMGL332 
ALMGL333 
ALMGL334 
ALMGL335 
ALMGL336 
ALMGL337 
ALMGL338 
ALMGL339 
ALMGL340 
ALMGL341 
ALMGL342 
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1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 


C4=G(7,4) *CP4+G(3, 7) *SP4 
C5=G(7,5)*CP5+G(4,7)*SP5 
C6=G(7,6)*CP6+G(5,7)*SP6 

C7=G(7,7)*CP7+G(6,7)*SP7 ALMGL346 

BR=BR-7 .O^AOR^ (G(7, 1) *P71+C2*P72+C3*P73+C4*P74+C5*P75+C6*P76+C7*P7ALMGL347 

ALMGL348 

17 ) 

BT=BT+AOR* (G (7, 1) *DP71+C2*DP72+C3*DP73+C4*DP74+C5*DP75+C6*DP76+C7*ALMGL349 

ALMGL350 

1DP77) 

BP=BP-AOR* { (G(7,2) *SP2-G (1,7) *CP2) *P72 + 2 . 0* (G (7 , 3 ) *SP3*-G (2 , 7) *CP3 ) ALMGL351 

l*P73+3 . 0* (G (7, 4 ) ♦SP4 -G (3 , 7) *CP4) *P74 + 4 , 0* (G (7, 5) *SP5-G (4, 7) *CP5) *PALMGL352 
275+5 . 0* (G{7, 6) *SP6-G (5, 7) *CP6) *P76+6 , 0* (G (7 , 7) *SP7-G (6, 7) *CP7) *P77ALMGL353 


3) 


IF (NMAX.LE. 7) GO TO 1 


N= 0 


SP8=SP2*CP7+CP2*SP7 
CP0=CP2*CP7-SP2^SP7 
P81=P21*P71-0 ,25174 825 *P61 
DP81=P21*DP71+DP21*P71-0 . 25174825*DP61 
P82=P21*P72-0 . 24475524*P62 
DP82=P21*DP72+DP21^P72-0 . 24475524*DP62 
P83=P21*P73-0 .22377622 *P63 
DP03=P21*DP73+DP21*P73-O . 22377622 *DP6 3 
P84=P21*P74-0 . 18881118*P64 
DP84=P21*DP74+DP21*P74-0 . 18881118*DP64 
P85=P21*P75-0 . 13986013*P65 

DP85=P21*DP75+DP21*P75-0 .13986013*DP65 
P86=P21*P76 -0 . 07692307*P66 

DP86=P21*DP76+DP21*P76-0.07692307*DP66 
P87=P21*P77 

DP87=P21*DP77+DP21*P77 
P88=P22*P77 
DP88=7 . 0*P87 
AOR=AOR*AR 

C2=G(8, 2) *CP2+G(1, 8) *SP2 
C3=G (0, 3) *CP3+G (2 , 8) *SP3 
C4=G(8, 4) *CP4+G(3, 8) *SP4 
C5=G(8, 5) *CP5+G(4 , 8) *SP5 
C6=G(8,6) *CP6+G(5, 8) *SP6 
C7=G{8, 7) *CP7+G{6, 8) *SP7 
C8=G(8,0) *CP8+G{7, 8) *SP8 

BR=BR-8 , 0*AOR* (G (8 , 1 ) *P81+C2*P82+C3*P83+C4 *P84+C5*P85+C6*P86+C7*P8ALMGL383 

17+C8*P88) ALMGL304 

BT=BT+AOR* (G(8, 1) *DP81+C2^DP82+C3*DP83+C4*DP84+C5*DP85+C6*DP86+C7*ALMGL385 

1DP87+C0*DP88) ALMGL386 

BP=BP-AOR* ( (G(8, 2) *SP2-G(1, 8) *CP2) *P82+2 .0* (G {8 , 3 ) *SP3 -G {2 , 8) *CP3 ) ALMGL387 
l*P83+3.0* (G(8,4)*SP4-G(3,8)*CP4)*P84+4,0* (G(8,5) *SP5 -G (4 , 8) *CP5) *PALMGL388 
285+5 0* (G(8,6)*SP6-G(5,8) *^CP6) ^P86+6 . 0* (G(8,7) *SP7-G{6,8) *CP7) *P87ALMGL389 


ALMGL354 

ALMGL355 

ALMGL356 

ALMGL357 

ALMGL358 

ALMGL359 

ALMGL360 

ALMGL361 

ALMGL362 

ALMGL363 

ALMGL364 

ALMGL365 

ALMGIi366 

ALMGL367 

ALMGL368 

AIiMGIi369 

ALMGL370 

ALMGL371 

ALMGL372 

ALMGL373 

ALMGL374 

AIiMGL375 

ALMGL376 

ALMGL377 

ALMGL378 

ALMGL379 

ALMGL380 

ALMGL381 

ALMGL382 


3+7.0* (G(8, 8) *SP8-G(7, 8) *CP8) *P88) 

IF (NMAX.LE. 8) GO TO 1 

SP9=(SP5+SP5) *CP5 
CP9= (CP5+SP5) * (CP5-SP5) 

P91=P21*P81-0 .25128205*P71 
DP91=P21*DP81+DP21*P81- 0 . 25128205*DP71 
P92=P21*P82-0 .24615384*P72 

DP92=P21*DP82+DP21*P82-0 ,24615384*DP72 
P93=P21*P83-0 .23076923*P73 
DP93=P21*DP83+DP21*P83 -0 . 23076 923 *DP73 
P94=P21*P84-0 . 20512 82 0*P74 
DP94=P21*DP84+DP21*P84 -0 . 20512820*DP74 
P95=P21*P85-0 . 16923 076* P75 
DP95=P21*DP85+DP21*P85-0 . 16923076 *DP7 5 
P96=P21*P86-0 ,12307692*P76 
DP96=P21*DP86+DP21*P86-0 . 12307692 *DP7 6 
P97=P21*P87-0 . 06666666* P77 
DP97 = P21*DP87+DP21*P87 - 0 . 06666666 *DP7 7 
P98=P21*P88 

DP98=P21*DP88+DP21*P88 

P99=P22*P88 


N= 


ALMGL390 

ALMGL391 

ALMGL392 

ALMGL393 

ALMGL394 

ALMGL395 

ALMGL396 

ALMGL397 

ALMGL398 

ALMGL399 

ALMGL400 

ALMGL401 

ALMGL402 

ALMGL403 

ALMGL404 

ALMGL405 

ALMGL406 

ALMGL407 

ALMGL408 

ALMGL409 

ALMGL410 

ALMGL411 
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1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 
1861 
1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 
1881 
1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 


DP99=8 . 0*P98 
AOR=AOR*AR 

C2=G{9,2) *CP2+G(1, 9) *SP2 
C3=G(9,3) *CP3+G(2, 9) *SP3 
C4=G (9, 4) *CP4+G (3 , 9) *SP4 
C5=G(9,5)*CP5+G(4,9) *SP5 
C6=G(9,6) *CP6+G(5,9) *SP6 
C7=G(9,7) *CP7+G(6,9) *SP7 
C8=G(9, 8) *CP8+G(7, 9) *SP8 
C9=G(9, 9) *CP9+G(8, 9) *SP9 


ALMGL412 

ALMGL413 

ALMGL414 

ALMGL415 

ALHGL416 

ALMGL417 

ALMGL418 

ALMGL419 

ALMGL420 

ALMGL421 


BR:BR-;'o*AORMG(9:1,*P91.C2*P92.C3*P^ 

"B;=l™(Gf9'l)*DP91.C2*DP92.C3.DP93.C4.DP94>C5*DP95.C6*DP96^ 


IF {NMAX.LE. 9) GO TO 1 


N=10 


SP10=SP2*CP9+CP2*SP9 
CP10^CP2*CP9-SP2*SP9 
P101=P21*P91“0.25098039*P81 
DP101=P21*DP91+DP21*P91-0 . 25098039*DP81 
P102=P21*P92-0 . 24705882 *P82 

DP102=P21*DP92+DP21*P92-0 . 24705882*DP82 
P103=P2X*P93-0 .23529411*P83 

DP103=P21*DP93+DP21*P93-0 . 23529411*DP83 
P104=P21*P94-0 .21568627*P84 
DP104=P21*DP94+DP21*P94-0 . 21568627*DP84 
P105=P21*P95-0 . 1882352 9* P85 

DP105=P21*DP95+DP21*P95-0 . 18823529*DP85 
P106=P21*P96-0 . 15294117*P86 

DP106=P21*DP96+DP21*P96-0 .15294117*DP86 

P107=P21*P97-0 . 10980392*P87 
DP107=P21*DP97+DP21*P97-0 . 10980392*DP87 
P108=P21*P98-0.05882352*P88 

DP108=P21*DP98+DP21*P98-0 .05882352*DP88 

P109=P21*P99 
DP109=P21*DP99+DP21*P99 
P1010=P22*P99 
DP1010=9 . 0*P109 
AOR=AOR*AR 

C2=G(10, 2) *CP2+G (1, 10) *SP2 
C3=G{10,3) *CP3+G(2,10) *SP3 
C4==G(10,4) *CP4+G{3,10) *SP4 
C5=G(10, 5) *CP5+G(4,10) *SP5 
C6=G(10,6) *CP6+G(5, 10) *SP6 
C7=G{10,7) *CP7+G(6,10) *SP7 

C8=sG (10, 8) *CP8+G {7,10) *SP8 
C9=G(10,9) *CP9+G(8,10) *SP9 

S°BRll^.o°AOR-”ao’;)°P101«2‘PM2.C3'P103.C<*P104.C5.1.105*C6-PliWGM« 

's:r:si:;!“:s:5r3?2S“p:s;siBP3.3.c..pP304-c=.BP3os.cB.BPA^^ 

1*CP3)*P103 + 3 0* (G(10,4)*SP4-G(3,10)*CP4)*P104+4.0* (G (10, 5) »SP5-G(4A^L469 

2 10) *CP5) *P105 + 5 . 0* (G (10 , 6) *SP6-G (5 , 10) *CP6) *P106+6 . 0* dO- ’’> *^,^^^5^471 
3-G^6 10) *CP7) *P107 + 7 . 0* (G ( 10 , 8 ) *SP8-G (7 , 10) *CP8) *P108+8 .0* 

4*SP9-G(8 , 10) *CP9) *P109+9 .0* (G(10,10) *SP10 -G ( 9 . 10) *CP10) ^PlOl ) 


ALMGL430 

ALMGL431 

ALMGL432 

ALMGL433 

ALMGL434 

ALMGL435 

ALMGL436 

AIiMGL437 

ALMGL438 

ALMGL439 

ALMGL440 

ALMGL441 

ALMGL442 

ALMGL443 

ALMGL444 

ALMGL445 

ALMGL446 

ALMGL447 

ALMGL448 

ALMGL449 

ALMGL450 

ALMGL451 

ALMGM52 

ALMGL453 

ALMGL454 

ALMGL455 

ALMGL456 

AIiMGL457 

AIiMGL4 58 

ALMGL459 

ALMGL460 

AIiMGL461 

ALMGL462 

A1iMGL463 


IF (NMAX.LE. 10) GO TO 1 

SP11=(SP6+SP6)*CP6 
CP11= (CP6+SP6) * (CP6-SP6) 

Plll=P21*P101-0 . 25077399*P91 

DP111=P21*DP101+DP21*P101-0 . 250773 9 9*DP91 
P112=P21*P102-0.24767801*P92 

DP112=P21*DP102+DP21*P102-0 .24767801*DP92 

P113=P21*P103-0 . 23839009*P93 


N=ll 


ALMGL472 
ALMGL473 
ALMGL474 
ALMGL4 7 5 
ALMGL476 
ALMGL477 
ALMGL4 7 8 
ALMGL479 
ALMGL480 
ALMGL481 
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1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 c 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 


DP113=P21»DP103+DP21*P103-0 . 23839009*DP93 ALMGL482 

P114=P21*P104<0 . 22291021*P94 

DP114 = P21*DP104+DP21*P104-0.22291021*DP94 ALMGIi4B4 

P115 = P21*P105~0-20123839*P95 

DP115 = P21*DP105+DP21*P105-0.20123839*DP95 A^L4 8 

P116 = P21*P106-0.17337461*P96 

DP116 = P21*DP106+DP21*P106-0 . 17337461*DP96 A^GL48B 

P117 = P21*P107-0.13931888*P97 

DP117 = P21*DP107+DP21*P107-0 . 13931888*DP97 = 0 

P118 = P21*P10e-0.09907120*P98 

DP118=P21*DP108+DP21*P108-0 . 09907120*DP98 
P119 = P21*P109-0 . 05263157*P99 

DP119=P21*DP109+DP21*P109-0 . 05263157*DP99 

P1110 = P21*P1010 

DP1110=P21*DP1010+DP21*P1010 ® 

P1111 = P22*P1010 M 14^498 

DP1111=10^0*P1110 ALMGL499 

AOR=AOR*AR aiMPT ^fio 

C2=G ( 11 , 2 ) *CP2+G (1 , 11) *SP2 ^GlIoI 

C3=G(11,3)*CP3+G(2,11)*SP3 ^GlIo2 

C4.G(11,4)*CP4+G(3,11)*SP4 

C5=G (11,5) *CP5+G (4 , 11 ) *SP5 ^GlIm 

C6=G (11, 6) *CP6+G (5 , 11) *SP6 ^GlIoS 

C7=G (11 , 7) *CP7+G (6,11) *SP7 

C8=G(11,8)*CP8+G(7,11)*SP8 tJiJ^L507 

C9=G(11, 9) *CP9+G(8, 11) *SP9 

C10=G(11,10) *CP10+G(9, 11) *SP10 RLMGL509 

cii=G(ii, 11) *cpii+G(io,ii) *spii 

BR=BR-11.0*AOR« (G (11 , 1 ) *P111+C2*P112+C3*P113+C4*P114+C5*P115+C6»P1^GL510 
116+C7*P117+C8*P118+C9*P119+C10*P1110+C11*P1111) 

BT=BT+AOR* (G(11,1)*DP111+C2*DP112+C3*DP113+C4*DP114+C5*DP115+C6*DP^GL512 
1116+C7*DP117+C8*DP118+C9*DP119+C10*DP1110+C11*DP1111) , vinT CT 4 

BP=BP-A0R* ( (G(11,2)*SP2-G(1,11)*CP2) *^112+2 . 0* (G (11 , 3 ) *SP3-G (2 , 11) A^GLS 

1*CP3)*P113+3.0*(G(11,4)»SP4-G(3,11)*CP4)*P114+4.0*(G(11,5)*SP5-G(4ALMGL515 

2 11) *CP5) *P115+5 . 0* (G(ll, 6) *SP6-G(5, 11) *CP6) ‘P116+6.0* (G(ll, 7) ‘SP7ALMGL516 
3 'g( 6 11) *CP7) *P117 + 7 .0* (G(ll, 8) *SP8-G(7,11) *CP8) *P118+B.O* (G (11 , 9) ALMGL517 

^Sp|:G^8,lI?icr9”pil9.9.0MG(ll,10)*SP10-G(9,ll)*CP10)*P1110.10,OA^^^^^^ 

5* (G(ll, 11) *SP11-G (10, 11) *CP11) *P1111) A^°“19 

IF (NMAX.LE.il) GO TO 1 ^ 


SP12=SP2*CP11+CP2^SP11 
CP12=CP2*CP11-SP2*SP11 
P121-P21*Plll-0 . 25062656 *P101 

DP121=P21*DP111+DP21*P111-0 .25062656*DP101 
P122=P21*P112-0 .24812030*P102 

DP122*P21*DP112+DP21*P112-0.24812030*DP102 
P123=P21*P113-0 .24 060150* P103 

DP123=P21*DP113+DP21*P113-0 .24060150*DP103 

P124=P21*P114-0 ,22807017*P104 

DP124=P21*DP114+DP21*P114-0.22807017*DP104 

P125=P21*P115-0 .21052631*P105 

DP125=P21*DP115+DP21*P115“0 . 21052631*DP105 
P126=P21*P116-0 . 18796992*P106 
DP126=P21*DP116+DP21*P116-0 . 18796992*DP106 
P127=P21*P117-0 . 16 040100 *P107 

DP127=P21*DP117+DP21*P117-0 .16040100*DP107 

P128=P21*P118-0 . 12781954*P108 

DP128=P21*DP118+DP21*P118-0 .12781954*DP108 

P129=P21*P119-0 . 09022556 *P10 9 
DP129=P21*DP119+DP21*P119“0 . 0 9022556 *DP1 09 
P1210=P21*P1110-0 . 04761904*P1010 

DP1210=P21*DP1110+DP21*P1110-0.04761904*DP1010 

P1211=P21*P1111 

DP1211=P21*DP1111+DP21*P1111 

P1212=P22*P1111 

DP1212=11.0*P1211 

AOR=AOR*AR 

C2=G(12,2) *CP2+G{1,12) *SP2 
C3=G(12,3) *CP3+G(2,12) *SP3 
C4=G(12,4) *CP4+G(3,12) *SP4 


ALMGL522 

ALMGL523 

ALMGL524 

ALMGL525 

ALMGL526 

ALMGL527 

ALMGL528 

ALMGL529 

ALMGL530 

ALMGL531 

AIiMGL532 

ALMGL533 

ALMGL534 

ALMGL535 

ALMGL536 

ALMGL537 

ALMGL538 

ALMGL539 

AIiMGL54 0 

ALMGL541 

ALMGL542 

ALMGL543 

ALMGL544 

ALMGL545 

ALMGL546 

ALMGL547 

AIiMGL548 

ALMGL549 

ALMGL550 

ALMGL551 
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1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 


C5*G(12, 5) *CP5+G{4, 12) *SP5 
C6*G(12, 6 ) *CP6+G(5 , 12) *SP 6 
C7=G(12, 7) *CP7+G{6,12) *SP7 
C8-G(12,8) *CP8+G(7,12)*SP8 
C9=G(12, 9) ♦CP9+G(8,12) *SP9 
C10=G(12,10) *CP10+G(9, 12) *SP10 
C11=G(12, 11) *CP11+G(10, 12) *SP11 
C12=G(12, 12) *CP12+G(11, 12) ♦SP12 


ALMGL552 

ALMGL553 

ALMGL554 

ALMGL555 

ALMGL556 

ALMGL557 

ALMGL558 

ALMGL559 


126+C7*P127^C8*P128+C9*P129+C10*P1210+C11*P1211+C12 P12^ 

BT=BT+A0R* (G (12 . 1) *DP121+C2*DP122+C3*DP123-|.C4*DP12^ ALMGL563 

1126+C7*DP127+C8*DP128+C9*DP129+C10*DP1210+ 3 ) *SP3-G (2 , 12) ALMGL564 

BP=BP-AORM(G(12,2)‘SP2-G(1,12)‘CP2)*P122.2^0MGU2^3^^SP3^G^^ 

1*CP3)*P123+3.0MG(12,4)*SP4-G(3,12) ^ . ^p^26+6 OMG (12 , 7) *SP7ALMGL566 

2,12)*CP5)*P125.8.0MG(12 6 *SP ;G(S 

3-G (6 , 12) *CP7) *P127+7 . 0* ® ' ’ 9 ^j) *CP10) ‘P1210+10 . OALMGL568 

4*SP9-G ( 8 , 12) *CP9) *P129 + 9 . 0* (G 12 , 10 (11 , 12) *ALMGL56 9 

5MG(12,11)*SP11-G(10,12)*CP11)*P1211+11.0MG(12,12) SP12G11 ^lMGL570 


6CP12) *P1212) 

IF (NMAX.LE.12) 


GO TO 1 


N=13 


SP13= (SP7+SP7) *CP7 
CP13= (CP7+SP7) (CP7-SP7) 

P131=P21*P121-0 .25051759*P111 

DP131=P21*DP121+DP21*P121-0 .25051759^DP111 

P132=P21*P122-0 . 24844720*P112 

DP132=P21*DP122+DP21*P122-0.24844720*DP112 

P133=P21*P123-0 .242236 02* P113 

DP133=P21*DP123+DP21*P123-0 . 24223602*DP113 
P134=P21*P124-0 . 23188405*P114 

DP134=P21*DP124+DP21*P124-0 . 23188405*DP114 
P135=P21*P125-0 .21739130*P115 ^ 

DP135=P21*DP125+DP21*P125-0 .21739130 DP115 
P136=P21*P126-0 .19875776*P116 

DP136=^P21*DP126+DP21*P126-0 . 19875776*DP116 
P137=P21*P127-0 . 17598343*P117 

DP137=P21*DP127+DP21*P127-0 . 17598343*DP117 
P138=P21*P128-0 .14 906832 *P118 

DP138=P21*DP128+DP21*P128-0 . 14906832*DP118 
0139 — P21*P129''0 .11801242*P119 

DP139=P21*DP129+DP21*P129-0 . 11801242 *DP11 9 

0=P21*P1210 -0.08281573* pi 110 

DP1310=P21*DP1210+DP21*P1210-0 . 08281573*DP1110 

PI *^11 = P21*P1211'0 . 04 347826 *P1111 

DP1311=P21*DP1211+DP21*P1211-0.04347826*DP1111 

P1312=P21*P1212 

DP1312=P21*DP1212+DP21*P1212 

P1313=P22*P1212 
DP1313=12 . 0*P1312 
A0R=A0R*AR 

C2=G(13,2) *CP2+G(1,13) *SP2 
C3=G(13, 3) *CP3+G (2, 13) *SP3 
C4=G (13 , 4) *CP4+G(3 , 13) *SP4 
C5=G (13,5) *CP5+G (4 , 13) *SP5 
C6=G(13,6) *CP6+G(5,13) *SP6 
C7=G(13,7) *CP7+G(6,13) *SP7 
C8=G(13 , 8) *CP8+G (7, 13) *SP8 
C9=G(13,9)*CP9+G(8,13) *SP9 
C10=G (13 , 10) *CP10+G (9 , 13) *SP10 
C11=G (13 , 11 ) *CP11+G (10 , 13) *SP11 
C12=G(13,12) *CP12+G(11,13) *SP12 

C13=G (13 , 13) *CP13+G (12 , 13) p3^33^C4*P134+C5*P135+C6*PlALMGL614 

13"c7:p?37:C8*;l38tc9iU39.C10*P1310.^^ 

^BT=BT+A0R* (G (13 , 1) *DP13^-"'=2*°^^p^g“*3330^Cll*DP1311+C12 

1136+C7*DP137+C8*DP138+C9*DP139+C10*DP1310+C11 DP1311+C12 ALMGL619 

23*DP1313) ■,,s.rP2t*P132+2 0 * (G (13 , 3) *SP3-G (2 , 13 ) ALMGL620 

l!c;3"pi3;!i'0MG(n 0*SP4lGU 


ALMGL570 
AIiMGL571 
ALMGL572 
ALMGL573 
ALMGL574 
ALMGL575 
ALMGL576 
ALMGL577 
ALMGL578 
ALMGL579 
ALMGL580 
ALMGL581 
ALMGL582 
ALMGL583 
AIiMGL584 
ALMGL585 
ALMGL586 
ALMGL587 
ALMGL588 
ALMGL589 
ALMGL590 
ALMGL591 
AliMGL592 
ALMGL593 
ALMGL594 
ALMGL595 
ALMGL596 
ALMGL597 
AIiMGL598 
ALMGL599 
ALMGL600 
AXjNGIj6 0 1 
ALMGL602 
ALMGL603 
ALMGL604 
ALMGL605 
ALMGL606 
ALMGL607 
ALMGL608 
ALMGL609 
ALMGL610 
ALMGL611 
ALMGL612 
ALMGL613 
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7031 2 13)*CP5)«P135+5.0*(G(13,6)*SP6-G(5,13)»CP6)*P136+6.0*(G(13,7)*SP7ALMGL622 

2032 3-G(6 13) *CP7) *P137 + 7.0* (G(13,8) ‘SP8-G (7, 13 ) *CP8) *P138+8 . 0* (G (13 , 9) ALMGL623 

2033 4*SP9-G(8,13) *CP9) *P13 9 + 9.0* (G(13,10) *SP10-G (9, 13) *CP10) *P1310+10 . 0ALMGL624 

2034 5*(G(13,11)*SP11-G(10,13)*CP11)*P1311+11.0*(G(13,12)*SP12-G(11,13)*^GL625 

2035 6CP12) *P1312+12 . 0* (G (13 , 13 ) *SP13-G (12 . 13 ) *CP13 ) *P1313 ) ^GLg27 

2036 1 BR = BR / 100000. ALMGL628 

2037 BT = BT / 100000. ALMGL629 

2038 BP = BP / ST / 100000. 

2039 B = DSQRT(BR*BR+BT*BT+BP*BP) ALMGL634 

2040 RETURN ALMGL635 

2041 end 




